The Game Master (3rd Edition)

home *** CD-ROM | disk | FTP | other *** search

/ The Game Master (3rd Edition) / The Game Master 3rd edition.iso / files / hobbbies / orgami / chick.bas (.txt) < prev next >

Wrap

GW-BASIC | 1985-02-21 | 52.9 KB | 2,413 lines

10 SCREEN 1,0:COLOR 8,0: KEY OFF: CLS 15 DEF FNCEN$(V$,X)=SPACE$((X-LEN(V$))/2)+V$ 20 LOCATE 12,1:PRINT FNCEN$("CHICK",40) 25 PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT:PRINT 30 PRINT FNCEN$("(C) COPYRIGHT 1985 George Furiya",40) 35 PRINT FNCEN$("All Rights Reserved",40) 40 FOR K=1 TO 2500:NEXT K 45 CLS 50 FOR A=0 TO 20 55 OUT 66,A:OUT 66,A 60 OUT 97,(INP(97) OR 3) 65 NEXT A 70 SOUND 37,0 75 LINE(160,30)-(80,100) 80 LINE-(160,170) 85 LINE-(240,100) 90 LINE-(160,30) 95 FOR K=1 TO 250:NEXT K 100 GOSUB 30000 '** Textpad ** 105 PRINT FNCEN$("CHICK begins with two folds",40) 110 FOR K=1 TO 1500:NEXT K 115 GOSUB 30000 '** Textpad ** 120 PRINT FNCEN$("which generate these creases",40) 125 FOR K=1 TO 1500:NEXT K 130 FOR V=30 TO 170 STEP 2 135 PSET(160,V) 140 NEXT V 145 FOR K=1 TO 750:NEXT K 150 FOR H=80 TO 240 STEP 2 155 PSET(H,100) 160 NEXT H 165 FOR K=1 TO 750:NEXT K 170 GOSUB 30000 '** Textpad ** 175 PRINT FNCEN$("and our old friends,",40) 180 FOR K=1 TO 1500:NEXT K 185 GOSUB 30000 '** Textpad ** 190 PRINT FNCEN$("the KITE BASE folds.",40) 195 FOR K=1 TO 1500: NEXT K 200 LINE(205,70)-(160,170),3 205 FOR K=1 TO 750:NEXT K 210 FOR Q=0 TO 35 215 LINE(160,170)-(240-Q,100-0.86*Q),3 220 LINE(160,170)-(240-Q,100-0.86*Q),0 225 LINE(160,170)-(241-Q,100-0.86*Q),0 230 NEXT Q 235 FOR H=205 TO 160 STEP -1 240 LINE(160,170)-(H,70),3 245 LINE(160,70)-(193,100),0 250 PSET(160,70) 255 NEXT H 260 FOR K=1 TO 750:NEXT K 265 LINE(115,70)-(160,170) 270 FOR K=1 TO 750: NEXT K 275 FOR Q=0 TO 35 280 LINE (80+Q,100-0.86*Q)-(160,170),3 285 LINE(80+Q,100-0.86*Q)-(160,170),0 290 LINE(79+Q,100-0.86*Q)-(160,170),0 295 NEXT Q 300 FOR H=115 TO 160 305 LINE(160,170)-(H,70),3 310 LINE(160,70)-(127,100),0 315 NEXT H 320 LINE(160,70)-(160,170),0 325 FOR K=1 TO 750:NEXT K 330 GOSUB 30000 '** Textpad ** 335 PRINT FNCEN$("There! Your turn to fold. I'll wait.",40) 340 FOR K=1 TO 1500:NEXT K 345 GOSUB 30000 '*** Textpad *** 350 PRINT FNCEN$("When ready to continue, press <C>.",40) 355 A$=INKEY$:IF A$="" GOTO 355 360 IF A$="C" OR A$="c" GOTO 370 365 GOTO 345 370 GOSUB 30000 '** Textpad ** 375 PRINT FNCEN$("Our next fold takes this corner",40) 380 FOR K=1 TO 1500:NEXT K 385 '*** arrow up *** 390 FOR K=1 TO 15 395 PSET(160,178):DRAW"G5R4D7R2U7R4H5" 400 PAINT(160,184) 405 FOR M=1 TO 25:NEXT M 410 CIRCLE(160,184),7,0 415 PAINT(160,184),0 420 NEXT K 425 '***end arrow up *** 430 FOR K=1 TO 250:NEXT K 435 GOSUB 30000 '** Textpad ** 440 PRINT FNCEN$("up to here",40) 445 FOR K=1 TO 750:NEXT K 450 '*** arrow down *** 455 FOR K=1 TO 15 460 PSET(160,22):DRAW"E5L4U7L2D7L4F5" 465 PAINT(160,16) 470 FOR M=1 TO 25:NEXT M 475 CIRCLE(160,16),7,0 480 PAINT(160,16),0 485 NEXT K 490 '***end arrow down *** 495 FOR K=1 TO 250:NEXT K 500 GOSUB 30000 '** Textpad ** 505 PRINT FNCEN$("across this line,",40) 510 FOR K=1 TO 750:NEXT K 515 FOR K=1 TO 25 520 LINE(127,100)-(193,100),0 525 FOR M=1 TO 25:NEXT M 530 LINE(127,100)-(193,100),3 535 NEXT K 540 FOR H=127 TO 193 STEP 2 545 PSET(H,100),0 550 NEXT H 555 FOR K=1 TO 250:NEXT K 560 GOSUB 30000 '** Textpad ** 565 PRINT FNCEN$("SO!",40) 570 FOR K=1 TO 750:NEXT K 575 LINE(149,148)-(160,171),0 580 LINE-(171,148),0 585 FOR V=170 TO 100 STEP -1 590 LINE(127,100)-(160,V),0 595 LINE-(193,100),0 600 LINE(193,102)-(169,151),0:LINE(127,102)-(151,151),0 605 NEXT V 610 FOR V=99 TO 70 STEP -1 615 LINE(127,100)-(160,V),0 620 LINE-(193,100),0 625 LINE(127,100)-(160,V+1),3 630 LINE-(193,100),3 635 NEXT V 640 LINE(127,101)-(193,101),0 645 FOR V=70 TO 30 STEP -1 650 LINE(127,100)-(160,V),0 655 LINE-(193,100),0 660 LINE(127,100)-(160,V),3 665 LINE-(193,100),3 670 NEXT V 675 LINE(127,100)-(140,70),0 680 LINE(193,100)-(180,70),0 685 FOR K=1 TO 750:NEXT K 690 GOSUB 30000 '** Textpad ** 695 PRINT FNCEN$("and back!",40) 700 FOR K=1 TO 750:NEXT K 705 LINE(160,30)-(160,100),3 710 FOR V=30 TO 70 715 LINE(127,100)-(160,V),0 720 LINE-(193,100),0 725 LINE(127,70)-(193,100),3,BF 730 FOR W=30 TO 70 STEP 2 735 PSET(160,W) 740 NEXT W 745 NEXT V 750 FOR V=71 TO 100 755 LINE(127,100)-(160,V),0 760 LINE-(193,100),0 765 LINE(127,100)-(160,V),3 770 LINE-(193,100),3 775 LINE(127,V-1)-(193,V-1),3 780 PSET(160,V-1),0 785 LINE(127,100)-(160,70),0 790 LINE-(193,100),0 795 NEXT V 800 FOR H=127 TO 193 STEP 2 805 PSET(H,99),0 810 NEXT H 815 FOR V=100 TO 170 820 LINE(127,101)-(160,V),3 825 LINE-(193,101),3 830 PSET(160,V-1),0 835 NEXT V 840 LINE(160,70)-(160,170),0 845 FOR H=127 TO 193 STEP 2 850 PSET(H,99),3 855 NEXT H 860 FOR H=127 TO 193 STEP 2 865 PSET(H,100),0 870 NEXT H 875 PSET(160,99),0 880 LINE(114,70)-(160,171),3 885 LINE-(206,70),3 890 PSET(127,102),0:PSET(193,102),0 895 FOR K=1 TO 750:NEXT K 900 GOSUB 30000 '*** Textpad *** 905 PRINT FNCEN$("To review that fold, press <R>.",40) 910 FOR K=1 TO 750:NEXT K 915 PRINT FNCEN$("To continue, press <C>.",40) 920 A$=INKEY$:IF A$="" GOTO 920 925 IF A$="r" OR A$="R" GOTO 940 930 IF A$="c" OR A$="C" GOTO 960 935 GOTO 905 940 GOSUB 30000 '*** Textpad *** 945 PRINT FNCEN$("* Review *",40) 950 FOR K=1 TO 1500:NEXT K 955 GOTO 370 960 GOSUB 30000 '*** Textpad *** 965 PRINT FNCEN$("We continue by folding this corner",40) 970 FOR K=1 TO 750:NEXT K 975 '*** arrow left *** 980 FOR K=1 TO 15 985 PSET(213,70):DRAW"E5D4R7D2L7D4H5" 990 PAINT(219,70) 995 FOR M=1 TO 25:NEXT M 1000 CIRCLE(219,70),7,0 1005 PAINT(219,70),0 1010 NEXT K 1015 '***end arrow left *** 1020 GOSUB 30000 '*** Textpad *** 1025 PRINT FNCEN$("over to this point",40) 1030 FOR K=1 TO 750:NEXT K 1035 FOR K=1 TO 15 '*** flashdot *** 1040 CIRCLE(160,90),5,0 1045 LINE(158,90)-(162,90),0 1050 LINE(160,88)-(160,92),0 1055 FOR M=1 TO 25:NEXT M 1060 CIRCLE(160,90),5,3 1065 LINE(158,90)-(162,90),3 1070 LINE(160,88)-(160,92),3 1075 NEXT K '*** end flashdot *** 1080 LINE(160,80)-(160,100),0 1085 GOSUB 30000 '*** Textpad *** 1090 PRINT FNCEN$("along this line",40) 1095 FOR K=1 TO 750:NEXT K 1100 LINE(160,30)-(178,70),3 1105 LINE-(193,100),0 1110 FOR K=1 TO 750:NEXT K 1115 LINE(190,56)-(205,69),0 1120 LINE(206,71)-(204,75),0 1125 FOR Q=0 TO 20 '*** Fold right 1130 LINE(160,30)-(205-Q,70+0.5*Q),3 1135 LINE-(193,100),3 1140 LINE(160,30)-(205-Q,70+0.5*Q),0 1145 LINE-(193,100),0 1150 LINE(160,30)-(206-Q,69+0.5*Q),0 1155 LINE-(193,100),0 1160 NEXT Q 1165 LINE(179,71)-(183,79) 1170 FOR Q=0 TO 25 1175 LINE(160,30)-(185-Q,80+0.4*Q),3 1180 LINE(185-Q,80+0.4*Q)-(193,100),0 1185 LINE(185-Q,80+0.4*Q)-(193,100),3 1190 NEXT Q 1195 LINE(160,30)-(160,90),0 1200 LINE-(193,100),0 1205 PSET(185,84),3:PSET(184,82) 1210 FOR K=1 TO 750:NEXT K 1215 GOSUB 30000 '*** Textpad *** 1220 PRINT FNCEN$("and repeat on the left side",40) 1225 FOR K=1 TO 750:NEXT K 1230 LINE(160,30)-(142,70),3 1235 LINE-(127,100),0 1240 FOR K=1 TO 750:NEXT K 1245 LINE(115,70)-(127,100),3 1250 LINE(130,56)-(120,65),0 1255 LINE(114,71)-(116,75),0 1260 PSET(115,69),0 1265 FOR Q=0 TO 20 '*** Fold left 1270 LINE(160,30)-(115+Q,70+0.5*Q),3 1275 LINE-(127,100),3 1280 LINE(160,30)-(115+Q,70+0.5*Q),0 1285 LINE-(127,100),0 1290 LINE(160,30)-(114+Q,69+0.5*Q),0 1295 LINE-(127,100),0 1300 NEXT Q 1305 LINE(141,71)-(137,79) 1310 FOR Q=0 TO 25 1315 LINE(160,30)-(135+Q,80+0.4*Q),3 1320 LINE(135+Q,80+0.4*Q)-(127,100),0 1325 LINE(135+Q,80+0.4*Q)-(127,100),3 1330 NEXT Q 1335 LINE(160,30)-(160,90),0 1340 LINE-(127,100),0 1345 PSET(135,84),3:PSET(136,82) 1350 FOR K=1 TO 750:NEXT K 1355 GOSUB 30000 '*** Textpad *** 1360 PRINT FNCEN$("and unfold right!",40) 1365 FOR K=1 TO 750:NEXT K 1370 FOR Q=0 TO 20 'Unfold right 1375 LINE(160,30)-(160+Q,69),3 1380 LINE(160,30)-(160+Q,69),0 1385 LINE(160,90)-(160+Q,90-0.5*Q),0 1390 LINE-(193,100),0 1395 LINE(160,90)-(160+Q,90-0.5*Q),3 1400 LINE-(193,100),3 1405 NEXT Q 1410 LINE(160,70)-(193,100),0 1415 FOR Q=1 TO 25 1420 LINE(160,30)-(180+Q,70),3 1425 LINE(160,30)-(180+Q,70),0 1430 LINE(193,100)-(180+0.8*Q,80-0.4*Q),3 1435 LINE(193,100)-(180+Q,70),3 1440 LINE(160,30)-(178,70),3 1445 LINE-(192,100),0 1450 NEXT Q 1455 LINE(160,30)-(205,70) 1460 FOR V=30 TO 70 STEP 2 1465 PSET(160,V) 1470 NEXT V 1475 FOR K=1 TO 750:NEXT K 1480 GOSUB 30000 '*** Textpad *** 1485 PRINT FNCEN$("and unfold left!",40) 1490 FOR K=1 TO 750:NEXT K 1495 FOR Q=0 TO 20 '*** Unfold left 1500 LINE(160,30)-(159-Q,69),3 1505 LINE(160,30)-(159-Q,69),0 1510 LINE(160,90)-(160-Q,90-0.5*Q),0 1515 LINE-(127,100),0 1520 LINE(160,90)-(160-Q,90-0.5*Q),3 1525 LINE-(127,100),3 1530 NEXT Q 1535 FOR V=30 TO 70 STEP 2 1540 PSET(160,V),3 1545 NEXT V 1550 LINE(160,70)-(127,100),0 1555 FOR Q=1 TO 25 1560 LINE(160,30)-(140-Q,70),3 1565 LINE(160,30)-(140-Q,70),0 1570 LINE(127,100)-(140-0.8*Q,80-0.4*Q),3 1575 LINE(127,100)-(140-Q,70),3 1580 LINE(160,30)-(142,70),3 1585 LINE-(128,100),0 1590 NEXT Q 1595 LINE(160,30)-(115,70),0 1600 LINE-(160,170),0 1605 LINE-(205,70),0 1610 LINE(127,100)-(117,76),0 1615 LINE-(128,100),0 1620 LINE(193,100)-(203,76),0 1625 LINE-(192,100),0 1630 LINE(160,30)-(115,70),3 1635 LINE-(160,170),3 1640 LINE-(205,70),3 1645 LINE(160,70)-(160,170),0 1650 LINE(114,70)-(159,171),0 1655 LINE(206,70)-(161,171),0 1660 LINE(113,70)-(158,171),0 1665 LINE(207,70)-(162,171),0 1670 LINE(128,100)-(192,100) 1675 FOR H=128 TO 192 STEP 2 1680 PSET(H,100),0 1685 NEXT H 1690 FOR K=1 TO 750:NEXT K 1695 GOSUB 30000 '*** Textpad *** 1700 PRINT FNCEN$("To review those folds, press <R>.",40) 1705 FOR K=1 TO 750:NEXT K 1710 PRINT FNCEN$("To continue, press <C>.",40) 1715 A$=INKEY$:IF A$="" GOTO 1715 1720 IF A$="r" OR A$="R" GOTO 1735 1725 IF A$="c" OR A$="C" GOTO 1785 1730 GOTO 1695 1735 LINE(160,30)-(142,70),0 1740 LINE-(128,100) 1745 LINE(160,30)-(178,70),0 1750 LINE-(192,100) 1755 LINE(127,100)-(160,70),0 1760 LINE-(193,100),0 1765 GOSUB 30000 '*** Textpad *** 1770 PRINT FNCEN$("* Review *",40) 1775 FOR K=1 TO 1500:NEXT K 1780 GOTO 960 1785 GOSUB 30000 '*** Textpad *** 1790 PRINT FNCEN$("Our next folds are tricky ones,",40) 1795 FOR K=1 TO 1500:NEXT K 1800 PRINT FNCEN$("but we are fully prepared for them.",40) 1805 FOR K=1 TO 1500:NEXT K 1810 GOSUB 30000 '*** Textpad *** 1815 PRINT FNCEN$("Here are some folding hints.",40) 1820 FOR K=1 TO 1500:NEXT K 1825 GOSUB 30000 '*** Textpad *** 1830 PRINT FNCEN$("We might use our straightedge",40) 1835 FOR K=1 TO 1500:NEXT K 1840 PRINT FNCEN$("to help hold down KITE,",40) 1845 FOR K=1 TO 750:NEXT K 1850 '***Zapsound*** 1855 FOR A=0 TO 20 1860 OUT 66,A:OUT 66,A 1865 OUT 97,(INP(97) OR 3) 1870 NEXT A 1875 SOUND 37,0 1880 FOR K=1 TO 250:NEXT K 1885 '***End Zapsound*** 1890 LINE(100,100)-(220,117),2,BF 1895 FOR V=100 TO 108 1900 FOR H=0 TO 90 STEP 20 1905 PSET(120+H,V),0 1910 NEXT H 1915 NEXT V 1920 FOR V=100 TO 105 1925 FOR H=0 TO 105 STEP 20 1930 PSET(110+H,V),0 1935 NEXT H 1940 NEXT V 1945 FOR V=100 TO 103 1950 FOR H=0 TO 110 STEP 10 1955 PSET(105+H,V),0 1960 NEXT H 1965 NEXT V 1970 FOR K=1 TO 750:NEXT K 1975 GOSUB 30000 '*** Textpad *** 1980 PRINT FNCEN$("but that would be entirely up to us.",40) 1985 FOR K=1 TO 1500:NEXT K 1990 '***Zapsound*** 1995 FOR A=0 TO 20 2000 OUT 66,A:OUT 66,A 2005 OUT 97,(INP(97) OR 3) 2010 NEXT A 2015 SOUND 37,0 2020 FOR K=1 TO 250:NEXT K 2025 '***End Zapsound*** 2030 LINE(100,100)-(220,120),0,BF 2035 LINE(115,70)-(160,170) 2040 LINE-(205,70) 2045 LINE(115,70)-(205,70),3 2050 PAINT(160,110),3 2055 LINE(127,100)-(160,70) 2060 LINE-(193,100) 2065 LINE(128,100)-(160,70),0 2070 LINE-(192,100),0 2075 FOR H=127 TO 193 STEP 2 2080 PSET(H,100),0 2085 NEXT H 2090 LINE(160,70)-(160,170),0 2095 FOR K=1 TO 750:NEXT K 2100 GOSUB 30000 '*** Textpad *** 2105 PRINT FNCEN$("Let's clear the deck for our next hints",40) 2110 FOR K=1 TO 1500:NEXT K 2115 GOSUB 30000 '*** Textpad *** 2120 PRINT FNCEN$("so we can see what the essentials are.",40) 2125 FOR K=1 TO 1500:NEXT K 2130 FOR A=0 TO 20 2135 OUT 66,A:OUT 66,A 2140 OUT 97,(INP(97) OR 3) 2145 NEXT A 2150 SOUND 37,0 2155 LINE(178,70)-(192,100) 2160 LINE(142,70)-(128,100) 2165 LINE(128,100)-(160,70) 2170 LINE-(192,100) 2175 LINE(128,100)-(192,100) 2180 LINE(160,70)-(160,170),0 2185 GOSUB 30000 '*** Textpad *** 2190 FOR K=1 TO 750:NEXT K 2195 GOSUB 30000 '*** Textpad *** 2200 PRINT FNCEN$("This crease",40) 2205 FOR K=1 TO 750:NEXT K 2210 FOR K=1 TO 15 2215 LINE(160,70)-(192,100) 2220 FOR M=1 TO 25:NEXT M 2225 LINE(160,70)-(192,100),0 2230 NEXT K 2235 FOR K=1 TO 750: NEXT K 2240 GOSUB 30000 '*** Textpad *** 2245 PRINT FNCEN$("plays the most active role",40) 2250 FOR K=1 TO 1500:NEXT K 2255 GOSUB 30000 '*** Textpad *** 2260 PRINT FNCEN$("and ends up as a MOUNTAIN FOLD,",40) 2265 FOR K=1 TO 1500:NEXT K 2270 FOR K=1 TO 15 2275 LINE(192,100)-(160,70) 2280 FOR M=1 TO 25:NEXT M 2285 LINE(192,100)-(160,70),2 2290 NEXT K 2295 FOR K=1 TO 750: NEXT K 2300 GOSUB 30000 '*** Textpad *** 2305 PRINT FNCEN$("and this crease",40) 2310 FOR K=1 TO 750: NEXT K 2315 FOR K=1 TO 15 2320 LINE(161,100)-(192,100),0 2325 FOR M=1 TO 25:NEXT M 2330 LINE(161,100)-(192,100) 2335 NEXT K 2340 FOR H=160 TO 192 STEP 2 2345 PSET(H,100),0 2350 NEXT H 2355 FOR K=1 TO 750:NEXT K 2360 GOSUB 30000 '*** Textpad *** 2365 PRINT FNCEN$("plays a passive role",40) 2370 FOR K=1 TO 1500: NEXT K 2375 GOSUB 30000 '*** Textpad *** 2380 PRINT FNCEN$("and ends up right where it is",40) 2385 FOR K=1 TO 1500: NEXT K 2390 GOSUB 30000 '*** Textpad *** 2395 PRINT FNCEN$("as a VALLEY FOLD.",40) 2400 FOR K=1 TO 1500: NEXT K 2405 FOR K=1 TO 15 2410 LINE(161,100)-(192,100),0 2415 FOR M=1 TO 25:NEXT M 2420 LINE(161,100)-(192,100),1 2425 NEXT K 2430 FOR K=1 TO 750:NEXT K 2435 GOSUB 30000 '*** Textpad *** 2440 PRINT FNCEN$("In other words,",40) 2445 FOR K=1 TO 750: NEXT K 2450 LINE(160,70)-(192,100) 2455 LINE-(161,100) 2460 FOR K=1 TO 750:NEXT K 2465 GOSUB 30000 '*** Textpad *** 2470 PRINT FNCEN$("this corner",40) 2475 FOR K=1 TO 750: NEXT K 2480 FOR Q=0 TO 5 2485 LINE(160,75)-(160+Q,70+Q),0 2490 LINE-(165,70),0 2495 NEXT Q 2500 LINE(160,75)-(165,70),3 2505 FOR K=1 TO 1500:NEXT K 2510 LINE(155,70)-(165,75),3,BF 2515 LINE(160,70)-(160,75),0 2520 GOSUB 30000 '*** Textpad *** 2525 PRINT FNCEN$("goes up in a MOUNTAIN FOLD",40) 2530 FOR K=1 TO 750:NEXT K 2535 FOR K=1 TO 15 2540 LINE(160,70)-(192,100) 2545 FOR M=1 TO 25:NEXT M 2550 LINE(160,70)-(192,100),2 2555 NEXT K 2560 FOR K=1 TO 750: NEXT K 2565 GOSUB 30000 '*** Textpad *** 2570 PRINT FNCEN$("over this VALLEY FOLD",40) 2575 FOR K=1 TO 750:NEXT K 2580 FOR K=1 TO 15 2585 LINE(161,100)-(192,100),0 2590 FOR M=1 TO 25:NEXT M 2595 LINE(161,100)-(192,100),1 2600 NEXT K 2605 FOR K=1 TO 750:NEXT K 2610 GOSUB 30000 '*** Textpad *** 2615 PRINT FNCEN$("down to this point",40) 2620 FOR K=1 TO 750:NEXT K 2625 FOR K=1 TO 15 2630 CIRCLE(160,130),5,0 2635 CIRCLE(160,130),5,0 2640 LINE(158,130)-(162,130),0 2645 LINE(160,128)-(160,132),0 2650 FOR M=1 TO 25:NEXT M 2655 CIRCLE(160,130),5 2660 LINE(158,130)-(162,130) 2665 LINE(160,128)-(160,132) 2670 NEXT K 2675 LINE(160,125)-(160,135),0 2680 FOR K=1 TO 750:NEXT K 2685 GOSUB 30000 '*** Textpad *** 2690 PRINT FNCEN$("along this line,",40) 2695 FOR K=1 TO 750:NEXT K 2700 FOR K=1 TO 25 2705 LINE(160,70)-(160,130),3 2710 FOR M=1 TO 25:NEXT M 2715 LINE(160,70)-(160,130),0 2720 NEXT K 2725 FOR K=1 TO 750:NEXT K 2730 GOSUB 30000 '*** Textpad *** 2735 PRINT FNCEN$("SO!",40) 2740 FOR K=1 TO 750:NEXT K 2745 FOR V=70 TO 130 2750 LINE(161,V)-(192,100),2 2755 LINE(161,V)-(192,100) 2760 FOR M=1 TO 25:NEXT M 2765 NEXT V 2770 LINE(161,V)-(192,100),2 2775 FOR K=1 TO 1500:NEXT K 2780 LINE(161,V)-(192,100) 2785 GOSUB 30000 '** Textpad ** 2790 PRINT FNCEN$("Would you like to review those hints?",40) 2795 FOR K=1 TO 1500:NEXT K 2800 GOSUB 30000 '*** Textpad *** 2805 PRINT FNCEN$("If so, press <R>.",40) 2810 FOR K=1 TO 1000:NEXT K 2815 PRINT FNCEN$("If not, press <C> to continue.",40) 2820 A$=INKEY$:IF A$="" GOTO 2820 2825 IF A$="r" OR A$="R" GOTO 2840 2830 IF A$="c" OR A$="C" GOTO 2905 2835 GOTO 2785 2840 FOR H=128 TO 192 STEP 2 2845 PSET(H,100),0 2850 NEXT H 2855 LINE(160,30)-(142,70) 2860 LINE-(128,100),0 2865 LINE-(160,70),0 2870 LINE-(192,100),0 2875 LINE-(178,70),0 2880 LINE-(160,30) 2885 GOSUB 30000 '*** Textpad *** 2890 PRINT FNCEN$("* Review *",40) 2895 FOR K=1 TO 1500:NEXT K 2900 GOTO 1810 2905 LINE(128,100)-(160,70),0 2910 LINE-(192,100),0 2915 FOR H=128 TO 192 STEP 2 2920 PSET(H,100),0 2925 NEXT H 2930 GOSUB 30000 '*** Textpad *** 2935 PRINT FNCEN$("OK! Let's execute those folds!",40) 2940 FOR K=1 TO 1500:NEXT K 2945 GOSUB 30000 '*** Textpad *** 2950 PRINT FNCEN$("And away we go!",40) 2955 FOR K=1 TO 750:NEXT K 2960 GOSUB 30000 '*** Textpad *** 2965 LINE(160,70)-(192,100) 2970 FOR Q=1 TO 30 2975 LINE(160,30)-(205-0.4*Q,70+0.167*Q),3 2980 LINE-(192,100),3 2985 LINE(161,30)-(206-0.4*Q,70+0.167*Q),0 2990 LINE-(193,100),0 2995 LINE(162,30)-(207-0.4*Q,70+0.167*Q),0 3000 LINE-(194,100),0 3005 LINE(160,100)-(160,69+Q),0 3010 LINE-(205-0.4*Q,70+0.167*Q),0 3015 LINE(192,100)-(160,70+Q),0 3020 LINE(192,100)-(160,70+Q),3 3025 LINE(160,72+Q)-(190,101),0 3030 LINE(160,71+Q)-(191,100),0 3035 LINE(160,71+Q)-(191,100),3 3040 LINE(160,30)-(192,100),3 3045 NEXT Q 3050 LINE(161,85)-(161,91),0 3055 FOR Q=0 TO 20 3060 LINE(160,30)-(193-0.45*Q,75+0.35*Q),3 3065 LINE-(193,100),0 3070 LINE(160,30)-(194-0.45*Q,75+0.35*Q),0 3075 LINE(160,30)-(195-0.45*Q,75+0.35*Q),0 3080 LINE(193,101)-(160,101+Q),0 3085 LINE(193,100)-(160,100+Q),0 3090 LINE(160,100+Q)-(192-0.45*Q,75+0.35*Q),0 3095 LINE(192,100)-(160,100+Q),3 3100 LINE(192,100)-(178-0.4*Q,87+0.65*Q),0 3105 LINE(192,100)-(178-0.4*Q,87+0.65*Q),3 3110 LINE(161,100)-(192,100),3 3115 LINE(160,30)-(192,100),3 3120 PSET(160,100+Q),0 3125 PSET(160,100),0 3130 NEXT Q 3135 LINE(176,93)-(172,100),0 3140 LINE(175,93)-(171,100),0 3145 LINE(174,93)-(170,100),0 3150 LINE(160,100)-(173,100),3 3155 PSET(170,99),0 3160 LINE(160,120)-(192,100),3 'cleanup 3165 FOR Q=0 TO 24 3170 LINE(160,30)-(183-Q,82+0.333*Q),3 3175 LINE-(192,100),3 3180 LINE(184-Q,82+0.333*Q)-(160,120+0.417*Q),3 3185 LINE(184-Q,82+0.333*Q)-(160,120+0.417*Q),3 3190 LINE(160,122+0.417*Q)-(191,102),0 3195 LINE(160,120+0.417*Q)-(193,100),3 3200 LINE(160,30)-(193,100),0 3205 LINE(160,30)-(194,100),0 3210 LINE(160,70)-(160,170),0 3215 NEXT Q 3220 PSET(183,85) 3225 LINE(160,132)-(191,102),3 3230 LINE(160,131)-(192,101),3 3235 LINE(160,170)-(193,100),3 3240 LINE-(160,30),3 3245 LINE(160,131)-(192,101),3 3250 LINE(160,130)-(193,100),0 3255 LINE(160,90)-(192,100),3 3260 LINE(161,71)-(179,96),3,BF 3265 PSET(180,79),3 3270 PSET(159,90),3 3275 PSET(176,69),3:PSET(181,81),3 3280 LINE(189,107)-(183,120) 3285 PSET(190,105),3:PSET(191,103),3:PSET(193,100),3 3290 LINE(159,60)-(159,69),0 3295 LINE(160,31)-(160,170),0 3300 PSET(159,91),3:PSET(158,91),3 3305 LINE(178,96)-(190,101),3,BF 3310 FOR K=1 TO 750:NEXT K 3315 LINE(160,70)-(128,100) 3320 FOR Q= 1 TO 30 3325 LINE(160,30)-(115+0.4*Q,70+0.167*Q),3 3330 LINE-(128,100),3 3335 LINE(159,30)-(114+0.4*Q,70+0.167*Q),0 3340 LINE-(114,100),0 3345 LINE(158,30)-(113+0.4*Q,70+0.167*Q),0 3350 LINE-(126,100),0 3355 LINE(160,100)-(160,69+Q),0 3360 LINE-(115+0.4*Q,70+0.167*Q),0 3365 LINE(130,100)-(160,72+Q),0 3370 LINE(129,100)-(160,71+Q),0 3375 LINE(129,100)-(160,71+Q),3 3380 LINE(160,30)-(128,100),3 3385 NEXT Q 3390 FOR Q=0 TO 20 3395 LINE(160,30)-(127+0.45*Q,75+0.35*Q),3 3400 LINE-(127,100),0 3405 LINE(160,30)-(126+0.45*Q,75+0.35*Q),0 3410 LINE(160,30)-(125+0.45*Q,75+0.35*Q),0 3415 LINE(127,101)-(160,101+Q),0 3420 LINE(127,100)-(160,100+Q),0 3425 LINE(160,100+Q)-(128+0.45*Q,75+0.35*Q),0 3430 LINE(128,100)-(160,100+Q),3 3435 LINE(128,100)-(142+0.4*Q,87+0.65*Q),0 3440 LINE(128,100)-(142+0.4*Q,87+0.65*Q),3 3445 LINE(161,100)-(128,100),3 3450 LINE(160,30)-(128,100),3 3455 PSET(131,81),0 3460 LINE(126,77)-(126,87),0 3465 NEXT Q 3470 LINE(144,93)-(148,100),0 3475 LINE(145,93)-(149,100),0 3480 LINE(146,93)-(150,100),0 3485 LINE(160,100)-(147,100),3 3490 PSET(150,99),0 3495 LINE(160,120)-(128,100),3 'cleanup 3500 FOR Q=0 TO 24 3505 LINE(160,30)-(137+Q,82+0.333*Q),3 3510 LINE-(128,100),3 3515 LINE(136+Q,82+0.333*Q)-(160,120+0.417*Q),3 3520 LINE(160,121+0.417*Q)-(127,101),0 3525 LINE(160,120+0.417*Q)-(128,100),3 3530 LINE(160,70)-(160,170),0 3535 LINE(135,81)-(132,88),0 3540 NEXT Q 3545 PSET(130,105) 3550 LINE(159,101)-(127,101),3 3555 LINE(161,90)-(130,100),3 3560 LINE(162,91)-(131,100),3 3565 LINE(138,78)-(155,85),3,BF 3570 PSET(144,69),3 3575 PSET(142,74),3 3580 PSET(127,102),0 3585 LINE(160,131)-(128,101),3 ' 3590 LINE(160,131)-(127,101),3 ' 3595 LINE(160,30)-(160,170),0 ' 3600 LINE(160,170)-(127,100),3 ' 3605 LINE-(160,30),3 3610 LINE(127,100)-(160,130),0 3615 LINE(131,107)-(137,120),3 3620 LINE(160,30)-(127,100) 3625 LINE-(160,170) 3630 LINE-(193,100) 3635 LINE-(160,30) 3640 PAINT(160,100),3 3645 LINE(160,30)-(160,170),0 3650 LINE(127,100)-(160,130),0 3655 LINE-(193,100),0 3660 GOSUB 30000 '*** Textpad *** 3665 PRINT FNCEN$("To review those folds, press <R>.",40) 3670 FOR K=1 TO 1000:NEXT K 3675 PRINT FNCEN$("To continue, press <C>",40) 3680 A$=INKEY$:IF A$="" GOTO 3680 3685 IF A$="r" OR A$="R" GOTO 3700 3690 IF A$="c" OR A$="C" GOTO 3840 3695 GOTO 3660 3700 FOR A=0 TO 20 3705 OUT 66,A:OUT 66,A 3710 OUT 97,(INP(97) OR 3) 3715 NEXT A 3720 SOUND 37,0 3725 CLS 3730 LINE(160,30)-(115,70) 3735 LINE-(160,170) 3740 LINE-(205,70) 3745 LINE-(160,30) 3750 LINE(115,70)-(205,70) 3755 PAINT(160,130) 3760 LINE(115,70)-(160,30) 3765 LINE-(205,70) 3770 FOR V=30 TO 70 STEP 2 3775 PSET(160,V) 3780 NEXT V 3785 FOR H=128 TO 192 STEP 2 3790 PSET(H,100),0 3795 NEXT H 3800 LINE(128,100)-(160,70),0 3805 LINE-(192,100),0 3810 LINE(160,70)-(160,170),0 3815 GOSUB 30000 '*** Textpad *** 3820 PRINT FNCEN$("* Review *",40) 3825 FOR K=1 TO 1500:NEXT K 3830 GOTO 2930 3835 '**************** 3840 GOSUB 30000 '** Textpad ** 3845 PRINT FNCEN$("Here are CHICK's other creases,",40) 3850 FOR K=1 TO 750:NEXT K 3855 FOR K=1 TO 25 3860 LINE(127,100)-(160,90),1 3865 LINE-(193,100),1 3870 LINE-(160,115),1 3875 LINE-(127,100),1 3880 FOR M=1 TO 25:NEXT M 3885 LINE(127,100)-(160,90),0 3890 LINE-(193,100),0 3895 LINE-(160,115),0 3900 LINE-(127,100),0 3905 NEXT K 3910 FOR K=1 TO 750:NEXT K 3915 GOSUB 30000 '** Textpad ** 3920 PRINT FNCEN$("two of which are not important.",40) 3925 FOR K=1 TO 750:NEXT K 3930 FOR K=0 TO 25 3935 LINE(127,100)-(160,115),1 3940 LINE-(193,100),1 3945 FOR M=1 TO 25:NEXT M 3950 LINE(127,100)-(160,115),0 3955 LINE-(193,100),0 3960 NEXT K 3965 LINE(127,100)-(160,115) 3970 LINE-(193,100) 3975 PSET(160,115),0 3980 LINE(127,100)-(160,90),0 3985 LINE-(193,100),0 3990 FOR K=1 TO 750:NEXT K 3995 GOSUB 30000 '** Textpad ** 4000 PRINT FNCEN$("Let's proceed.",40) 4005 FOR K=1 TO 1500:NEXT K 4010 GOSUB 30000 '** Textpad ** 4015 PRINT FNCEN$("First, we turn CHICK over",40) 4020 FOR K=1 TO 1500:NEXT K 4025 GOSUB 30000 '** Textpad ** 4030 PRINT FNCEN$("SO!",40) 4035 FOR K=1 TO 750:NEXT K 4040 LINE(156,163)-(160,171),0 4045 LINE-(164,163),0 4050 FOR H=125 TO 160 4055 LINE(160,30)-(H,100),0 4060 LINE-(160,170),0 4065 LINE(160,90)-(H,100),0 4070 LINE-(160,130),0 4075 LINE(160,90)-(H,100) 4080 LINE-(160,130) 4085 LINE(H,30)-(H,170),0 4090 LINE(160,30)-(320-H,100),0 4095 LINE-(160,170),0 4100 LINE(160,90)-(320-H,100),0 4105 LINE-(160,130),0 4110 LINE(160,90)-(320-H,100) 4115 LINE-(160,130) 4120 LINE(320-H,30)-(320-H,170),0 4125 NEXT H 4130 FOR H=160 TO 125 STEP -1 4135 LINE(160,30)-(H,100) 4140 LINE-(160,170) 4145 LINE(160,30)-(320-H,100) 4150 LINE-(160,170) 4155 NEXT H 4160 FOR V=30 TO 170 STEP 2 4165 PSET(160,V),0 4170 NEXT V 4175 FOR K=1 TO 750:NEXT K 4180 GOSUB 30000 '** Textpad ** 4185 PRINT FNCEN$("Our first folds are preparatory folds",40) 4190 FOR K=1 TO 1500:NEXT K 4195 PRINT FNCEN$("for CHICK's beak,",40) 4200 FOR K=1 TO 1500:NEXT K 4205 PRINT FNCEN$("the size of which we ourselves control.",40) 4210 FOR K=1 TO 1500:NEXT K 4215 GOSUB 30000 '** Textpad ** 4220 PRINT FNCEN$("We begin by folding this corner",40) 4225 FOR K=1 TO 750:NEXT K 4230 '*** arrow down *** 4235 FOR K=1 TO 15 4240 PSET(160,22):DRAW"E5L4U7L2D7L4F5" 4245 PAINT(160,16) 4250 FOR M=1 TO 25:NEXT M 4255 CIRCLE(160,16),7,0 4260 PAINT(160,16),0 4265 NEXT K 4270 '***end arrow down *** 4275 FOR K=1 TO 750:NEXT K 4280 GOSUB 30000 '** Textpad ** 4285 PRINT FNCEN$("down across this line of our choosing,",40) 4290 FOR K=1 TO 750:NEXT K 4295 FOR H=153 TO 167 STEP 2 4300 PSET(H,45),0 4305 NEXT H 4310 FOR K=1 TO 750:NEXT K 4315 GOSUB 30000 '** Textpad ** 4320 PRINT FNCEN$("THUS!",40) 4325 FOR K=1 TO 750:NEXT K 4330 FOR V=30 TO 45 4335 LINE(152,45)-(160,V),0 4340 LINE-(168,45),0 4345 NEXT V 4350 FOR V=45 TO 60 4355 LINE(152,45)-(160,V),0 4360 LINE-(168,45),0 4365 LINE(152,45)-(160,V) 4370 LINE-(168,45) 4375 PSET(160,V),0 4380 NEXT V 4385 LINE(152,45)-(160,60),0 4390 LINE-(168,45),0 4395 LINE(160,45)-(160,60),0 4400 FOR K=1 TO 1500:NEXT K 4405 GOSUB 30000 '** Textpad ** 4410 PRINT FNCEN$("Our next fold takes us back up again",40) 4415 FOR K=1 TO 1500:NEXT K 4420 GOSUB 30000 '** Textpad ** 4425 PRINT FNCEN$("across this line,",40) 4430 FOR K=1 TO 750:NEXT K 4435 FOR H=155 TO 165 STEP 2 4440 PSET(H,50),0 4445 NEXT H 4450 FOR K=1 TO 750:NEXT K 4455 PRINT FNCEN$("again of our own choosing,",40) 4460 FOR K=1 TO 1500:NEXT K 4465 GOSUB 30000 '** Textpad ** 4470 PRINT FNCEN$("SO!",40) 4475 FOR K=1 TO 750:NEXT K 4480 FOR V=60 TO 40 STEP -1 4485 LINE(155,50)-(160,V),0 4490 LINE-(165,50),0 4495 LINE(155,50)-(160,V) 4500 LINE-(165,50) 4505 LINE(155,51)-(160,60) 4510 LINE-(165,51) 4515 FOR W=42 TO 60 STEP 2 4520 PSET(160,W),0 4525 NEXT W 4530 NEXT V 4535 LINE(157,45)-(155,50),0 4540 LINE-(165,50),0 4545 LINE-(163,45),0 4550 FOR K=1 TO 750:NEXT K 4555 GOSUB 30000 '*** Textpad *** 4560 PRINT FNCEN$("Want to see those folds again?",40) 4565 FOR K=1 TO 1500:NEXT K 4570 GOSUB 30000 '*** Textpad *** 4575 PRINT FNCEN$("If so, press <R>.",40) 4580 FOR K=1 TO 1000:NEXT K 4585 PRINT FNCEN$("If not, press <C> to continue.",40) 4590 A$=INKEY$:IF A$="" GOTO 4590 4595 IF A$="r" OR A$="R" GOTO 4610 4600 IF A$="c" OR A$="C" GOTO 4720 4605 GOTO 4570 4610 GOTO 4615 4615 GOSUB 30000 '*** Textpad *** 4620 PRINT FNCEN$("* Review *",40) 4625 FOR K=1 TO 1500:NEXT K 4630 CLS 4635 '***Zapsound*** 4640 FOR A=0 TO 20 4645 OUT 66,A:OUT 66,A 4650 OUT 97,(INP(97) OR 3) 4655 NEXT A 4660 SOUND 37,0 4665 '***End Zapsound*** 4670 '*** start draw *** 4675 LINE(160,30)-(125,100) 4680 LINE-(160,170) 4685 LINE-(195,100) 4690 LINE-(160,30) 4695 PAINT(160,100) 4700 FOR V=32 TO 170 STEP 2 4705 PSET(160,V),0 4710 NEXT V 4715 GOTO 4215 4720 GOSUB 30000 '** Textpad ** 4725 PRINT FNCEN$("We'll be using those folds",40) 4730 FOR K=1 TO 1500:NEXT K 4735 PRINT FNCEN$("for CHICK's beak later on.",40) 4740 FOR K=1 TO 1500:NEXT K 4745 GOSUB 30000 '** Textpad ** 4750 PRINT FNCEN$("Let's move on.",40) 4755 FOR K=1 TO 1500:NEXT K 4760 FOR V=50 TO 30 STEP -1 4765 LINE(150,50)-(160,V) 4770 LINE-(170,50) 4775 FOR W=32 TO 50 STEP 2 4780 PSET(160,W),0 4785 NEXT W 4790 NEXT V 4795 FOR H=150 TO 170 STEP 2 4800 PSET(H,40),0 4805 PSET(H,45),0 4810 NEXT H 4815 FOR K=1 TO 750:NEXT K 4820 GOSUB 30000 '** Textpad ** 4825 PRINT FNCEN$("and fold CHICK's left side",40) 4830 FOR K=1 TO 750:NEXT K 4835 FOR V=30 TO 170 STEP 2 4840 PSET(160,V),0 4845 NEXT V 4850 FOR K=1 TO 500:NEXT K 4855 FOR K=1 TO 15 4860 LINE(160,30)-(125,100),0 4865 LINE-(160,170),0 4870 FOR M=1 TO 25:NEXT M 4875 LINE(160,30)-(125,100) 4880 LINE-(160,170) 4885 NEXT K 4890 FOR K=1 TO 750:NEXT K 4895 GOSUB 30000 '** Textpad ** 4900 PRINT FNCEN$("over onto its right side,",40) 4905 FOR K=1 TO 750:NEXT K 4910 FOR K=1 TO 15 4915 LINE(160,30)-(195,100),0 4920 LINE-(160,170),0 4925 FOR M=1 TO 25:NEXT M 4930 LINE(160,30)-(195,100) 4935 LINE-(160,170) 4940 NEXT K 4945 FOR K=1 TO 750:NEXT K 4950 GOSUB 30000 '** Textpad ** 4955 PRINT FNCEN$("SO!",40) 4960 FOR K=1 TO 750:NEXT K 4965 FOR H=125 TO 160 4970 LINE(160,30)-(H,100),0 4975 LINE-(160,170),0 4980 NEXT H 4985 FOR H=160 TO 195 4990 LINE(160,30)-(H,100),0 4995 LINE-(160,170),0 5000 LINE(160,30)-(H,100) 5005 LINE-(160,170) 5010 NEXT H 5015 LINE(160,90)-(195,100),0 5020 LINE-(160,130),0 5025 FOR K=1 TO 750:NEXT K 5030 GOSUB 30000 '** Textpad ** 5035 PRINT FNCEN$("There! Now I'll position myself",40) 5040 FOR K=1 TO 1500:NEXT K 5045 PRINT FNCEN$("more comfortably.",40) 5050 FOR K=1 TO 1500:NEXT K 5055 GOSUB 30000 '** Textpad ** 5060 PRINT FNCEN$("One moment, please.",40) 5065 FOR K=1 TO 750:NEXT K 5070 CLS 5075 '***Zapsound*** 5080 FOR A=0 TO 20 5085 OUT 66,A:OUT 66,A 5090 OUT 97,(INP(97) OR 3) 5095 NEXT A 5100 SOUND 37,0 5105 '***End Zapsound*** 5110 LINE(80,100)-(240,100) 5115 LINE-(160,130) 5120 LINE-(80,100) 5125 PAINT(160,115) 5130 LINE(125,100)-(160,130),0 5135 LINE-(173,100),0 5140 FOR K=1 TO 750:NEXT K 5145 GOSUB 30000 '** Textpad ** 5150 PRINT FNCEN$("We now fold and backfold this corner",40) 5155 FOR K=1 TO 1500:NEXT K 5160 '*** arrow left *** 5165 FOR K=1 TO 15 5170 PSET(248,100):DRAW"E5D4R7D2L7D4H5" 5175 PAINT(254,100) 5180 FOR M=1 TO 25:NEXT M 5185 CIRCLE(254,100),7,0 5190 PAINT(254,100),0 5195 NEXT K 5200 '***end arrow left *** 5205 FOR K=1 TO 750:NEXT K 5210 GOSUB 30000 '** Textpad ** 5215 PRINT FNCEN$("up to this point",40) 5220 FOR K=1 TO 750:NEXT K 5225 '*** flashdot *** 5230 FOR K=1 TO 15 5235 CIRCLE(125,60),5,3 5240 LINE(123,60)-(127,60),3 5245 LINE(125,58)-(125,62),3 5250 FOR M=1 TO 25:NEXT M 5255 CIRCLE(125,60),5,0 5260 LINE(123,60)-(127,60),0 5265 LINE(125,58)-(125,62),0 5270 NEXT K 5275 FOR K=1 TO 750:NEXT K 5280 GOSUB 30000 '** Textpad ** 5285 PRINT FNCEN$("across this crease,",40) 5290 FOR K=1 TO 750:NEXT K 5295 FOR K=1 TO 25 5300 LINE(173,100)-(160,130),1 5305 FOR M=1 TO 25:NEXT M 5310 LINE(173,100)-(160,130),0 5315 NEXT K 5320 FOR K=1 TO 750:NEXT K 5325 GOSUB 30000 '** Textpad ** 5330 PRINT FNCEN$("SO!",40) 5335 FOR K=1 TO 750:NEXT K 5340 FOR Q=0 TO 58 5345 LINE(160,130)-(240-Q,100-0.34*Q) 5350 LINE-(173,100) 5355 LINE(160,130)-(240-Q,100-0.34*Q),0 5360 LINE(160,130)-(241-Q,100-0.34*Q),0 5365 NEXT Q 5370 FOR Q=0 TO 57 5375 LINE(160,130)-(182-Q,80-0.35*Q),0 5380 LINE(160,130)-(182-Q,80-0.35*Q) 5385 LINE-(173,100) 5390 LINE-(182-Q,80-0.35*Q),0 5395 PSET(177,81),0:PSET(174,99),0 5400 PSET(175,97),0:PSET(178,90),0 5405 NEXT Q 5410 LINE(124,60)-(160,130),0 5415 FOR K=1 TO 750:NEXT K 5420 GOSUB 30000 '** Textpad ** 5425 PRINT FNCEN$("and return!",40) 5430 FOR K=1 TO 750:NEXT K 5435 FOR Q=0 TO 57 5440 LINE(173,100)-(125+Q,60+0.35*Q) 5445 LINE-(160,130) 5450 LINE(160,130)-(125+Q,60+0.35*Q),0 5455 LINE(142+0.49*Q,100)-(160,130) 5460 PSET(172,79),0:PSET(174,79),0:PSET(177,80),0 5465 LINE(171,83)-(179,83),0 5470 PSET(175,86),0:PSET(177,88),0 5475 NEXT Q 5480 LINE(160,130)-(173,100) 5485 LINE(160,129)-(172,100) 5490 LINE(160,128)-(171,100) 5495 LINE(125,100)-(160,130),0 5500 FOR Q=0 TO 58 5505 LINE(160,130)-(182+Q,80+0.34*Q) 5510 LINE-(173,100) 5515 LINE(182+Q,80+0.34*Q)-(173,99),0 5520 LINE(181+Q,80+0.34*Q)-(173,99),0 5525 LINE(160,130)-(173,100),0 5530 LINE(160,130)-(173,100),0 5535 NEXT Q 5540 LINE(174,100)-(240,100) 5545 LINE(185,101)-(222,107),3,BF 5550 LINE(223,104)-(228,102) 5555 LINE(228,104)-(236,101) 5560 PSET(225,105) 5565 FOR K=1 TO 750:NEXT K 5570 GOSUB 30000 '** Textpad ** 5575 PRINT FNCEN$("Your turn to fold and backfold.",40) 5580 FOR K=1 TO 1500:NEXT K 5585 GOSUB 30000 '*** Textpad *** 5590 PRINT FNCEN$("Press <R> for a review of that fold.",40) 5595 FOR K=1 TO 1000:NEXT K 5600 PRINT FNCEN$("Press <C> to continue.",40) 5605 A$=INKEY$:IF A$="" GOTO 5605 5610 IF A$="r" OR A$="R" GOTO 5625 5615 IF A$="c" OR A$="C" GOTO 5645 5620 GOTO 5585 5625 GOSUB 30000 '*** Textpad *** 5630 PRINT FNCEN$("* Review *",40) 5635 FOR K=1 TO 1500:NEXT K 5640 GOTO 5145 5645 GOSUB 30000 '*** Textpad *** 5650 PRINT FNCEN$("Our next fold takes this corner",40) 5655 FOR K=1 TO 1500:NEXT K 5660 '*** arrow left *** 5665 FOR K=1 TO 15 5670 PSET(248,100):DRAW"E5D4R7D2L7D4H5" 5675 PAINT(254,100) 5680 FOR M=1 TO 25:NEXT M 5685 CIRCLE(254,100),7,0 5690 PAINT(254,100),0 5695 NEXT K 5700 '***end arrow left *** 5705 FOR K=1 TO 750:NEXT K 5710 GOSUB 30000 '** Textpad ** 5715 PRINT FNCEN$("back up again to this point",40) 5720 FOR K=1 TO 750:NEXT K 5725 '*** flashdot *** 5730 FOR K=1 TO 15 5735 CIRCLE(125,60),5,3 5740 LINE(123,60)-(127,60),3 5745 LINE(125,58)-(125,62),3 5750 FOR M=1 TO 25:NEXT M 5755 CIRCLE(125,60),5,0 5760 LINE(123,60)-(127,60),0 5765 LINE(125,58)-(125,62),0 5770 NEXT K 5775 FOR K=1 TO 750:NEXT K 5780 GOSUB 30000 '** Textpad ** 5785 PRINT FNCEN$("across this same crease,",40) 5790 FOR K=1 TO 750:NEXT K 5795 FOR K=1 TO 25 5800 LINE(173,100)-(160,130),1 5805 FOR M=1 TO 25:NEXT M 5810 LINE(173,100)-(160,130),0 5815 NEXT K 5820 FOR K=1 TO 750:NEXT K 5825 GOSUB 30000 '** Textpad ** 5830 PRINT FNCEN$("but with this difference:",40) 5835 FOR K=1 TO 1500:NEXT K 5840 GOSUB 30000 '** Textpad ** 5845 PRINT FNCEN$("this fold is a HOOD FOLD,",40) 5850 FOR K=1 TO 1500:NEXT K 5855 PRINT FNCEN$("and we will have to open CHICK up",40) 5860 FOR K=1 TO 1500:NEXT K 5865 PRINT FNCEN$("considerably to execute it,",40) 5870 FOR K=1 TO 1500:NEXT K 5875 GOSUB 30000 '** Textpad ** 5880 PRINT FNCEN$("SO!",40) 5885 FOR K=1 TO 750:NEXT K 5890 LINE(80,100)-(160,140) 5895 LINE-(240,100) 5900 PAINT(160,135) 5905 LINE(80,100)-(160,131),0 5910 LINE-(240,100),0 5915 LINE(125,100)-(160,130),0 5920 LINE-(173,100),0 5925 FOR K=1 TO 15 5930 PSET(160,148):DRAW"g5r4d7r2u7r4h5" 5935 PAINT(160,154) 5940 FOR M=1 TO 25:NEXT M 5945 CIRCLE(160,154),7,0 5950 PAINT(160,154),0 5955 NEXT K 5960 FOR K=1 TO 750:NEXT K 5965 LINE(80,100)-(160,140),0 5970 LINE-(240,100),0 5975 PAINT(160,135),0 5980 PSET(95,107),0:PSET(96,107),0 5985 PSET(224,107),0:PSET(225,107),0 5990 GOSUB 30000 '** Textpad ** 5995 PRINT FNCEN$("OK! Here we go!",40) 6000 FOR K=1 TO 1500:NEXT K 6005 GOSUB 30000 '** Textpad ** 6010 PRINT FNCEN$("WATCH!",40) 6015 FOR K=1 TO 750:NEXT K 6020 FOR A=0 TO 20 6025 OUT 66,A:OUT 66,A 6030 OUT 97,(INP(97) OR 3) 6035 NEXT A 6040 SOUND 37,0 6045 LINE(173,100)-(160,130),0 6050 LINE-(239,100),0 6055 LINE-(173,100),0 6060 PAINT(200,110),0 6065 LINE(160,130)-(173,100) 6070 LINE(124,60)-(160,130),0 6075 LINE(140,100)-(124,60) 6080 LINE-(173,101) 6085 PAINT(140,95) 6090 LINE(124,60)-(160,130),0 6095 LINE(80,99)-(145,99),0 6100 FOR K=1 TO 750:NEXT K 6105 GOSUB 30000 '** Textpad ** 6110 PRINT FNCEN$("The trick to that fold",40) 6115 FOR K=1 TO 1500:NEXT K 6120 PRINT FNCEN$("is to open CHICK up enough",40) 6125 FOR K=1 TO 1500:NEXT K 6130 PRINT FNCEN$("so that we can execute it.",40) 6135 FOR K=1 TO 1500:NEXT K 6140 GOSUB 30000 '*** Textpad *** 6145 PRINT FNCEN$("Your turn. To review, press <R>.",40) 6150 FOR K=1 TO 1000:NEXT K 6155 PRINT FNCEN$("To continue, press <C>.",40) 6160 A$=INKEY$:IF A$="" GOTO 6160 6165 IF A$="r" OR A$="A" GOTO 6180 6170 IF A$="c" OR A$="C" GOTO 6265 6175 GOTO 6140 6180 GOSUB 30000 '*** Textpad *** 6185 PRINT FNCEN$("* Review *",40) 6190 FOR K=1 TO 750:NEXT K 6195 FOR A=0 TO 20 6200 OUT 66,A:OUT 66,A 6205 OUT 97,(INP(97) OR 3) 6210 NEXT A 6215 SOUND 37,0 6220 CLS 6225 LINE(80,100)-(240,100) 6230 LINE-(160,130) 6235 LINE-(80,100) 6240 PAINT(160,115) 6245 LINE(125,100)-(160,130),0 6250 LINE-(173,100),0 6255 FOR K=1 TO 750:NEXT K 6260 GOTO 5645 6265 GOSUB 30000 '*** Textpad *** 6270 PRINT FNCEN$("Back to 2-D!",40) 6275 FOR K=1 TO 750:NEXT K 6280 FOR A=0 TO 20 6285 OUT 66,A:OUT 66,A 6290 OUT 97,(INP(97) OR 3) 6295 NEXT A 6300 SOUND 37,0 6305 FOR K=1 TO 250:NEXT K 6310 LINE(145,99)-(124,60),0 6315 LINE-(139,99),0 6320 PAINT(140,95),0 6325 LINE(128,69)-(131,76),0 6330 GOSUB 30000 '*** Textpad *** 6335 PRINT FNCEN$("We next fold and backfold this corner",40) 6340 FOR K=1 TO 750:NEXT K 6345 FOR K=1 TO 15 6350 PSET(125,54):DRAW"E5L4U7L2D7L4F5" 6355 PAINT(125,48) 6360 FOR M=1 TO 25:NEXT M 6365 CIRCLE(125,48),7,0 6370 PAINT(125,48),0 6375 NEXT K 6380 FOR K=1 TO 750:NEXT K 6385 GOSUB 30000 '** Textpad ** 6390 PRINT FNCEN$("down to this point",40) 6395 FOR K=1 TO 750:NEXT K 6400 FOR K=1 TO 15 6405 CIRCLE(190,115),5 6410 LINE(188,115)-(192,115) 6415 LINE(190,113)-(190,117) 6420 FOR M=1 TO 25:NEXT M 6425 CIRCLE(190,115),5,0 6430 LINE(188,115)-(192,115),0 6435 LINE(190,113)-(190,117),0 6440 NEXT K 6445 FOR K=1 TO 750:NEXT K 6450 GOSUB 30000 '** Textpad ** 6455 PRINT FNCEN$("across this line,",40) 6460 FOR K=1 TO 750:NEXT K 6465 LINE(145,100)-(157,88),0 6470 FOR K=1 TO 750:NEXT K 6475 GOSUB 30000 '** Textpad ** 6480 PRINT FNCEN$("THUS!",40) 6485 FOR K=1 TO 750:NEXT K 6490 LINE(126,60)-(191,115),0 '<X> 6495 FOR Q=0 TO 32 6500 LINE(145,100)-(125+Q,60+0.88*Q),0 6505 LINE-(157,88),0 6510 FOR M=1 TO 10:NEXT M 6515 NEXT Q 6520 LINE(149,80)-(157,87),0 6525 LINE(150,84)-(156,88),0 6530 LINE(154,90)-(157,88),0 6535 PSET(152,88),0:PSET(152,91),0 6540 FOR Q=0 TO 33 6545 LINE(145,100)-(157+Q,88+0.82*Q),0 6550 LINE-(157,88),0 6555 LINE(145,100)-(157+Q,88+0.82*Q) 6560 LINE-(157,88) 6565 FOR M=1 TO 10:NEXT M 6570 NEXT Q 6575 LINE(146,99)-(157,88),0 6580 LINE(145,100)-(190,115),0 6585 PSET(158,88) 6590 FOR K=1 TO 750:NEXT K 6595 GOSUB 30000 '** Textpad ** 6600 PRINT FNCEN$("and back!",40) 6605 FOR K=1 TO 750:NEXT K 6610 FOR Q=0 TO 17 6615 LINE(158,87)-(190-Q,115-0.88*Q),0 6620 LINE-(145,100),0 6625 LINE(145,100)-(169+0.18*Q,110-0.53*Q) 6630 PSET(149,101):PSET(157,102) 6635 PSET(165,103):PSET(166,103) 6640 PSET(163,104):PSET(168,105) 6645 PSET(165,107):PSET(168,108) 6650 LINE(126,60)-(191,115),0 '<X> 6655 NEXT Q 6660 LINE(160,130)-(173,100) 6665 FOR Q=0 TO 48 6670 LINE(145,100)-(173-Q,100-0.83*Q),0 6675 LINE-(157,88),0 6680 LINE(145,100)-(173-Q,100-0.83*Q) 6685 LINE-(157,88) 6690 LINE(156,89)-(152,93) 6695 LINE(126,60)-(191,115),0 '<X> 6700 LINE(145,100)-(157,88),0 6705 NEXT Q 6710 PSET(153,87):PSET(153,89):PSET(155,88) 6715 LINE(150,83)-(164,94) 6720 FOR K=1 TO 750:NEXT K 6725 GOSUB 30000 '** Textpad ** 6730 PRINT FNCEN$("Your turn to fold and backfold.",40) 6735 FOR K=1 TO 1500:NEXT K 6740 GOSUB 30000 '** Textpad ** 6745 PRINT FNCEN$("To review that fold, press <R>.",40) 6750 FOR K=1 TO 1000:NEXT K 6755 PRINT FNCEN$("To continue, press <C>.",40) 6760 A$=INKEY$:IF A$="" GOTO 6760 6765 IF A$="r" OR A$="R" GOTO 6780 6770 IF A$="c" OR A$="C" GOTO 6805 6775 GOTO 6740 6780 GOSUB 30000 '*** Textpad *** 6785 PRINT FNCEN$("* Review *",40) 6790 FOR K=1 TO 750:NEXT K 6795 LINE(145,100)-(157,88) 6800 GOTO 6330 6805 GOSUB 30000 '** Textpad ** 6810 PRINT FNCEN$("We again take this corner",40) 6815 FOR K=1 TO 1500:NEXT K 6820 FOR K=1 TO 15 6825 PSET(125,54):DRAW"E5L4U7L2D7L4F5" 6830 PAINT(125,48) 6835 FOR M=1 TO 25:NEXT M 6840 CIRCLE(125,48),7,0 6845 PAINT(125,48),0 6850 NEXT K 6855 FOR K=1 TO 750:NEXT K 6860 GOSUB 30000 '** Textpad ** 6865 PRINT FNCEN$("down to this point",40) 6870 FOR K=1 TO 750:NEXT K 6875 FOR K=1 TO 15 6880 CIRCLE(190,115),5 6885 LINE(188,115)-(192,115) 6890 LINE(190,113)-(190,117) 6895 FOR M=1 TO 25:NEXT M 6900 CIRCLE(190,115),5,0 6905 LINE(188,115)-(192,115),0 6910 LINE(190,113)-(190,117),0 6915 NEXT K 6920 FOR K=1 TO 750:NEXT K 6925 GOSUB 30000 '** Textpad ** 6930 PRINT FNCEN$("across this crease,",40) 6935 FOR K=1 TO 750:NEXT K 6940 FOR K=1 TO 15 6945 LINE(145,100)-(157,88) 6950 FOR M=1 TO 25:NEXT M 6955 LINE(145,100)-(157,88),0 6960 NEXT K 6965 FOR K=1 TO 750:NEXT K 6970 GOSUB 30000 '** Textpad ** 6975 PRINT FNCEN$("but again there's a difference:",40) 6980 FOR K=1 TO 1500:NEXT K 6985 GOSUB 30000 '** Textpad ** 6990 PRINT FNCEN$("this fold is a REVERSE HOOD FOLD,",40) 6995 FOR K=1 TO 1500:NEXT K 7000 PRINT FNCEN$("and we will have to open CHICK up",40) 7005 FOR K=1 TO 1500:NEXT K 7010 PRINT FNCEN$("considerably to execute it,",40) 7015 FOR K=1 TO 1500:NEXT K 7020 GOSUB 30000 '** Textpad ** 7025 PRINT FNCEN$("THUS!",40) 7030 FOR K=1 TO 750:NEXT K 7035 FOR A=0 TO 20 7040 OUT 66,A:OUT 66,A 7045 OUT 97,(INP(97) OR 3) 7050 NEXT A 7055 SOUND 37,0 7060 LINE(124,60)-(160,130),0 7065 LINE(124,60)-(140,100) 7070 PAINT(140,95) 7075 LINE(80,99)-(145,99),0 7080 LINE(80,100)-(162,135) 7085 LINE-(173,100) 7090 PAINT(160,132) 7095 LINE(124,60)-(160,130),0 7100 LINE(80,100)-(160,130),0 7105 LINE-(173,100),0 7110 FOR K=1 TO 750:NEXT K 7115 GOSUB 30000 '*** Textpad *** 7120 PRINT FNCEN$("Ready for our fold? <C> to continue.",40) 7125 A$=INKEY$:IF A$="" GOTO 7125 7130 IF A$="C" OR A$="c" GOTO 7140 7135 GOTO 7115 7140 GOSUB 30000 '** Textpad ** 7145 PRINT FNCEN$("SO!",40) 7150 FOR K=1 TO 750:NEXT K 7155 LINE(145,99)-(124,60),0 7160 LINE-(139,99),0 7165 PAINT(140,95),0 7170 LINE(128,69)-(131,76),0 7175 LINE(80,100)-(162,135),0 7180 LINE-(173,100),0 7185 PAINT(160,132),0 7190 LINE(110,112)-(124,117),0 7195 LINE(110,113)-(124,118),0 7200 PSET(167,115),0 7205 FOR K=1 TO 750:NEXT K 7210 FOR A=0 TO 20 7215 OUT 66,A:OUT 66,A 7220 OUT 97,(INP(97) OR 3) 7225 NEXT A 7230 SOUND 37,0 7235 LINE(145,100)-(125,60),0 7240 LINE-(157,88),0 7245 LINE-(145,100),0 7250 PAINT(145,85),0 7255 LINE(120,60)-(157,87),0,BF 7260 LINE(145,100)-(190,115) 7265 LINE-(158,88) 7270 LINE-(145,100) 7275 PAINT(175,105) 7280 PAINT(150,98) 7285 LINE(158,127)-(145,100) 7290 LINE(190,115)-(145,100) 7295 LINE(158,88)-(148,103),0 7300 LINE-(190,116),0 7305 LINE(148,103)-(160,130),0 7310 LINE(145,99)-(150,99),0 7315 PSET(186,113):PSET(187,113) 7320 FOR K=1 TO 750:NEXT K 7325 GOSUB 30000 '*** Textpad *** 7330 PRINT FNCEN$("There! Your turn. <C> to continue.",40) 7335 A$=INKEY$:IF A$="" GOTO 7335 7340 IF A$="C" OR A$="c" GOTO 7350 7345 GOTO 7325 7350 GOSUB 30000 '** Textpad ** 7355 PRINT FNCEN$("Now the very first folds we made",40) 7360 FOR K=1 TO 1500:NEXT K 7365 PRINT FNCEN$("way back when we first started",40) 7370 FOR K=1 TO 1500:NEXT K 7375 LINE(171,109)-(176,103),0 'beak 7380 LINE(177,112)-(181,107),0 'beak 7385 FOR K=1 TO 250:NEXT K 7390 FOR K=1 TO 15 7395 PSET(183,100):DRAW"E5L4U7L2D7L4F5" 7400 PAINT(183,94) 7405 FOR M=1 TO 25:NEXT M 7410 CIRCLE(183,94),7,0 7415 PAINT(183,94),0 7420 NEXT K 7425 FOR K=1 TO 750:NEXT K 7430 PRINT FNCEN$("come into play to form CHICK's beak,",40) 7435 FOR K=1 TO 1500:NEXT K 7440 GOSUB 30000 '** Textpad ** 7445 PRINT FNCEN$("and we'll have to open CHICK up again",40) 7450 FOR K=1 TO 1500:NEXT K 7455 FOR A=0 TO 20 7460 OUT 66,A:OUT 66,A 7465 OUT 97,(INP(97) OR 3) 7470 NEXT A 7475 SOUND 37,0 7480 LINE(80,100)-(162,135) 7485 LINE-(173,100) 7490 PAINT(160,132) 7495 LINE(80,100)-(160,130),0 7500 LINE-(169,109),0 7505 LINE(125,100)-(160,130),0 7510 LINE-(148,103),0 7515 LINE(190,115)-(171,112) 7520 PAINT(172,111) 7525 LINE(190,115)-(148,103),0 7530 LINE(163,135)-(171,110),0 7535 LINE(171,109)-(176,103),0 'beak 7540 LINE(177,112)-(181,107),0 'beak 7545 FOR K=1 TO 750:NEXT K 7550 PRINT FNCEN$("considerably to tuck CHICK's beak",40) 7555 FOR K=1 TO 1500:NEXT K 7560 PRINT FNCEN$("into this pocket,",40) 7565 FOR K=1 TO 750:NEXT K 7570 FOR K=1 TO 15 7575 PSET(177,120):DRAW"G5R4D7R2U7R4H5" 7580 PAINT(177,126) 7585 FOR M=1 TO 25:NEXT M 7590 CIRCLE(177,126),7,0 7595 PAINT(177,126),0 7600 NEXT K 7605 FOR K=1 TO 750:NEXT K 7610 GOSUB 30000 '** Textpad ** 7615 PRINT FNCEN$("SO!",40) 7620 FOR K=1 TO 750:NEXT K 7625 FOR A=0 TO 20 7630 OUT 66,A:OUT 66,A 7635 OUT 97,(INP(97) OR 3) 7640 NEXT A 7645 SOUND 37,0 7650 LINE(80,100)-(162,135),0 7655 LINE-(171,109),0 7660 PAINT(160,132),0 7665 LINE(80,100)-(159,129) 7670 LINE(79,100)-(159,130),0 7675 LINE(78,100)-(158,130),0 7680 LINE(77,100)-(157,130),0 7685 PSET(170,109),0 7690 LINE(190,115)-(171,112),0 7695 PAINT(172,111),0 7700 PSET(170,110),0 7705 LINE(181,113)-(175,112),0 7710 LINE(160,130)-(148,103) 7715 LINE-(157,88) 7720 LINE(190,115)-(148,103) 7725 LINE(160,130)-(145,100),0 7730 LINE-(190,115),0 7735 LINE(145,100)-(157,88) 7740 LINE(146,99)-(150,99) 7745 LINE(170,109)-(185,114),0 7750 PSET(171,110),0 7755 LINE(153,105)-(163,108) 7760 LINE(151,99)-(157,90) 7765 PSET(157,89) 7770 FOR K=1 TO 750:NEXT K 7775 PSET(178,104),0 7780 FOR Q=0 TO 14 7785 LINE(176,103)-(190-Q,115-0.86*Q),0 7790 LINE-(171,109),0 7795 FOR M=1 TO 25:NEXT M 7800 NEXT Q 7805 PSET(177,105),0 7810 FOR Q=0 TO 13 7815 LINE(176,103)-(176-Q,103-0.77*Q),1 7820 LINE-(171,109),1 7825 LINE(176,103)-(176-Q,103-0.77*Q) 7830 LINE-(171,109) 7835 FOR M=1 TO 25:NEXT M 7840 NEXT Q 7845 LINE(163,93)-(172,108),1 7850 LINE(168,104)-(172,100),1 7855 PSET(171,109),0 7860 FOR K=1 TO 750:NEXT K 7865 GOSUB 30000 '** Textpad ** 7870 PRINT FNCEN$("and REVERSE POCKET FOLD CHICK'S beak!",40) 7875 FOR K=1 TO 1500:NEXT K 7880 FOR Q=0 TO 13 7885 LINE(168,104)-(163+Q,93+0.77*Q),1 7890 LINE-(172,100),1 7895 LINE(168,104)-(163+Q,93+0.77*Q) 7900 LINE-(172,100) 7905 LINE(172,100)-(168,104),1 7910 FOR M=1 TO 25:NEXT M 7915 NEXT Q 7920 LINE(172,100)-(168,104) 7925 LINE-(172,108) 7930 PSET(171,106) 7935 FOR Q=0 TO 5 7940 LINE(172,100)-(176+Q,103+Q) 7945 LINE-(168,104) 7950 LINE(172,109)-(178,104),0 7955 NEXT Q 7960 LINE(172,109)-(178,104),0 7965 FOR K=1 TO 750:NEXT K 7970 GOSUB 30000 '*** Textpad *** 7975 PRINT FNCEN$("To see those folds again, press <R>.",40) 7980 FOR K=1 TO 1000:NEXT K 7985 PRINT FNCEN$("To continue, press <C>.",40) 7990 A$=INKEY$:IF A$="" GOTO 7990 7995 IF A$="r" OR A$="R" GOTO 8010 8000 IF A$="c" OR A$="C" GOTO 8125 8005 GOTO 7970 8010 GOTO 8015 8015 GOSUB 30000 '*** Textpad *** 8020 PRINT FNCEN$("* Review *",40) 8025 FOR K=1 TO 1500:NEXT K 8030 FOR A=0 TO 20 8035 OUT 66,A:OUT 66,A 8040 OUT 97,(INP(97) OR 3) 8045 NEXT A 8050 SOUND 37,0 8055 LINE(125,100)-(160,130) 8060 LINE-(145,100) 8065 LINE-(190,115) 8070 LINE-(178,104) 8075 PAINT(180,110) 8080 LINE(125,100)-(160,130),0 8085 LINE-(148,103),0 8090 LINE-(190,115),0 8095 LINE(157,88)-(148,103),0 8100 LINE(145,99)-(150,99),0 8105 LINE(171,109)-(176,103),0 8110 LINE(177,112)-(181,107),0 8115 PSET(177,105) 8120 GOTO 7350 8125 GOSUB 30000 '** Textpad ** 8130 PRINT FNCEN$("Next we fold CHICK's wings",40) 8135 FOR K=1 TO 750:NEXT K 8140 LINE(125,100)-(131,105) 8145 LINE(131,105)-(135,100),0 8150 LINE-(135,105),0 8155 LINE-(131,105),0 8160 FOR K=1 TO 750:NEXT K 8165 FOR K=1 TO 15 8170 PSET(135,92):DRAW"E5L4U7L2D7L4F5" 8175 PAINT(135,86) 8180 FOR M=1 TO 25:NEXT M 8185 CIRCLE(135,86),7,0 8190 PAINT(135,86),0 8195 NEXT K 8200 LINE(131,105)-(135,100) 8205 LINE-(135,105) 8210 LINE-(131,105) 8215 LINE(125,100)-(131,105),0 8220 GOSUB 30000 '** Textpad ** 8225 PRINT FNCEN$("up to here,",40) 8230 FOR K=1 TO 750:NEXT K 8235 FOR K=1 TO 15 8240 PSET(158,80):DRAW"E5L4U7L2D7L4F5" 8245 PAINT(158,74) 8250 FOR M=1 TO 25:NEXT M 8255 CIRCLE(158,74),7,0 8260 PAINT(158,74),0 8265 NEXT K 8270 FOR K=1 TO 750:NEXT K 8275 GOSUB 30000 '** Textpad ** 8280 PRINT FNCEN$("SO!",40) 8285 FOR K=1 TO 750:NEXT K 8290 FOR H=125 TO 145 8295 LINE(160,130)-(H,100),0 8300 LINE(160,130)-(H,100) 8305 FOR M=1 TO 25:NEXT M 8310 NEXT H 8315 FOR Q=0 TO 12 8320 LINE(160,130)-(145+Q,100-Q),0 8325 LINE(160,130)-(145+Q,100-Q) 8330 LINE(145,100)-(160,130),0 8335 FOR M=1 TO 25:NEXT M 8340 NEXT Q 8345 LINE(158,88)-(160,130),0 8350 LINE(159,129)-(161,127) 8355 FOR K=1 TO 750:NEXT K 8360 GOSUB 30000 '** Textpad ** 8365 PRINT FNCEN$("and repeat on the hidden side.",40) 8370 FOR K=1 TO 750:NEXT K 8375 FOR H=125 TO 145 8380 LINE(160,130)-(H,100),1 8385 LINE(160,130)-(H,100) 8390 FOR M=1 TO 25:NEXT M 8395 NEXT H 8400 FOR Q=0 TO 12 8405 LINE(160,130)-(145+Q,100-Q),1 8410 LINE(160,130)-(145+Q,100-Q) 8415 LINE(145,100)-(160,130),0 8420 FOR M=1 TO 25:NEXT M 8425 NEXT Q 8430 LINE(158,88)-(160,130),0 8435 LINE(159,129)-(161,127) 8440 FOR K=1 TO 750:NEXT K 8445 FOR K=1 TO 750:NEXT K 8450 GOSUB 30000 '*** Textpad *** 8455 PRINT FNCEN$("Press <C> to continue.",40) 8460 A$=INKEY$:IF A$="" GOTO 8460 8465 IF A$="C" OR A$="c" GOTO 8475 8470 GOTO 8450 8475 GOSUB 30000 '** Textpad ** 8480 PRINT FNCEN$("We now take this corner",40) 8485 FOR K=1 TO 750:NEXT K 8490 FOR K=1 TO 15 8495 PSET(72,100):DRAW"H5D4L7D2R7D4E5" 8500 PAINT(66,100) 8505 FOR M=1 TO 25:NEXT M 8510 CIRCLE(66,100),7,0 8515 PAINT(66,100),0 8520 NEXT K 8525 FOR K=1 TO 750:NEXT K 8530 GOSUB 30000 '** Textpad ** 8535 PRINT FNCEN$("down to this point",40) 8540 FOR K=1 TO 750:NEXT K 8545 FOR K=1 TO 15 8550 CIRCLE(190,125),5 8555 LINE(188,125)-(192,125) 8560 LINE(190,123)-(190,127) 8565 FOR M=1 TO 25:NEXT M 8570 CIRCLE(190,125),5,0 8575 LINE(188,125)-(192,125),0 8580 LINE(190,123)-(190,127),0 8585 NEXT K 8590 FOR K=1 TO 750:NEXT K 8595 GOSUB 30000 '** Textpad ** 8600 PRINT FNCEN$("across this line,",40) 8605 FOR K=1 TO 750:NEXT K 8610 LINE(140,100)-(135,120),0 8615 FOR K=1 TO 750:NEXT K 8620 GOSUB 30000 '** Textpad ** 8625 PRINT FNCEN$("SO!",40) 8630 FOR K=1 TO 750:NEXT K 8635 FOR Q=0 TO 56 8640 LINE(140,100)-(80+Q,100+0.23*Q),0 8645 LINE-(135,121),0 8650 LINE(140,100)-(79+Q,100+0.23*Q),0 8655 LINE-(135,121),0 8660 NEXT Q 8665 FOR Q=0 TO 54 8670 LINE(140,100)-(136+Q,113+0.22*Q),0 8675 LINE-(135,121),0 8680 LINE(140,100)-(136+Q,113+0.22*Q) 8685 LINE-(135,121) 8690 NEXT Q 8695 LINE(140,100)-(190,125),0 8700 LINE-(135,121),0 8705 PSET(183,125),0:PSET(169,124),0 8710 FOR K=1 TO 750:NEXT K 8715 GOSUB 30000 '** Textpad ** 8720 PRINT FNCEN$("Your turn to fold and backfold.",40) 8725 FOR K=1 TO 1500:NEXT K 8730 PRINT FNCEN$("To see that fold again, press <R>.",40) 8735 FOR K=1 TO 1000:NEXT K 8740 PRINT FNCEN$("To continue, press <C>.",40) 8745 A$=INKEY$:IF A$="" GOTO 8745 8750 IF A$="r" OR A$="R" GOTO 8765 8755 IF A$="c" OR A$="C" GOTO 8890 8760 GOTO 8715 8765 GOTO 8770 8770 GOSUB 30000 '*** Textpad *** 8775 PRINT FNCEN$("* Review *",40) 8780 FOR K=1 TO 1500:NEXT K 8785 FOR A=0 TO 20 8790 OUT 66,A:OUT 66,A 8795 OUT 97,(INP(97) OR 3) 8800 NEXT A 8805 SOUND 37,0 8810 LINE(140,100)-(167,114) 8815 LINE(140,121)-(163,123),3,BF 8820 LINE(168,115)-(190,125),0 8825 LINE-(165,122),0 8830 LINE-(168,115),0 8835 PAINT(175,120),0 8840 PSET(186,124),0 8845 LINE(80,100)-(145,100) 8850 LINE-(160,130) 8855 LINE-(80,100) 8860 PAINT(120,110) 8865 LINE(145,100)-(160,130),0 8870 LINE-(158,88),0 8875 PSET(138,121):PSET(139,121) 8880 FOR K=1 TO 750:NEXT K 8885 GOTO 8475 8890 GOSUB 30000 '** Textpad ** 8895 PRINT FNCEN$("Next, we fold and backfold this corner",40) 8900 FOR K=1 TO 750:NEXT K 8905 FOR K=1 TO 15 8910 PSET(198,125):DRAW"E5D4R7D2L7D4H5" 8915 PAINT(204,125) 8920 FOR M=1 TO 25:NEXT M 8925 CIRCLE(204,125),7,0 8930 PAINT(204,125),0 8935 NEXT K 8940 FOR K=1 TO 750:NEXT K 8945 GOSUB 30000 '** Textpad ** 8950 PRINT FNCEN$("down to this point",40) 8955 FOR K=1 TO 750:NEXT K 8960 FOR K=1 TO 15 8965 CIRCLE(135,150),5 8970 LINE(133,150)-(137,150) 8975 LINE(135,148)-(135,152) 8980 FOR M=1 TO 25:NEXT M 8985 CIRCLE(135,150),5,0 8990 LINE(133,150)-(137,150),0 8995 LINE(135,148)-(135,152),0 9000 NEXT K 9005 FOR K=1 TO 750:NEXT K 9010 GOSUB 30000 '** Textpad ** 9015 PRINT FNCEN$("across this line,",40) 9020 FOR K=1 TO 750:NEXT K 9025 FOR K=1 TO 15 9030 LINE(148,105)-(156,123),1 9035 FOR M=1 TO 25:NEXT M 9040 LINE(148,105)-(156,123),0 9045 NEXT K 9050 FOR K=1 TO 750:NEXT K 9055 GOSUB 30000 '** Textpad ** 9060 PRINT FNCEN$("SO!",40) 9065 FOR K=1 TO 750:NEXT K 9070 LINE(165,123)-(170,123) 9075 LINE(180,124)-(184,124) 9080 FOR Q=0 TO 26 9085 LINE(148,105)-(190-Q,125+0.46*Q) 9090 LINE-(156,123) 9095 LINE(148,105)-(190-Q,125+0.46*Q),0 9100 LINE(148,105)-(191-Q,125+0.46*Q),0 9105 LINE(148,105)-(168-0.27*Q,110+0.65*Q) 9110 LINE(161,111)-(165,113) 9115 LINE(163,115)-(165,116) 9120 LINE(157,114)-(164,121) 9125 LINE(159,119)-(162,123) 9130 LINE(160,118)-(161,119) 9135 PSET(150,105) 9140 NEXT Q 9145 LINE(158,88)-(160,130),0 9150 LINE(170,110)-(161,130),0 9155 FOR Q=0 TO 29 9160 LINE(148,105)-(164-Q,137+0.45*Q),0 9165 LINE-(156,123),0 9170 LINE(148,105)-(164-Q,137+0.45*Q) 9175 LINE-(156,123) 9180 LINE(156,123)-(164-Q,137+0.45*Q),0 9185 FOR M=1 TO 50:NEXT M 9190 LINE(156,123)-(160-0.24*Q,130-0.1*Q) 9195 LINE(161,130)-(164,136),0 9200 LINE(145,100)-(160,130),0 9205 PSET(155,125):PSET(158,123):PSET(159,125) 9210 NEXT Q 9215 LINE(148,105)-(135,150),0 9220 LINE-(156,123),0 9225 GOSUB 30000 '** Textpad ** 9230 PRINT FNCEN$("Your turn to fold and backfold.",40) 9235 FOR K=1 TO 1500:NEXT K 9240 PRINT FNCEN$("To see that fold again, press <R>.",40) 9245 FOR K=1 TO 1000:NEXT K 9250 PRINT FNCEN$("To continue, press <C>.",40) 9255 A$=INKEY$:IF A$="" GOTO 9255 9260 IF A$="r" OR A$="R" GOTO 9275 9265 IF A$="c" OR A$="C" GOTO 9405 9270 GOTO 9225 9275 GOTO 9280 9280 GOSUB 30000 '*** Textpad *** 9285 PRINT FNCEN$("* Review *",40) 9290 FOR K=1 TO 1500:NEXT K 9295 FOR A=0 TO 20 9300 OUT 66,A:OUT 66,A 9305 OUT 97,(INP(97) OR 3) 9310 NEXT A 9315 SOUND 37,0 9320 LINE(148,105)-(135,150) 9325 LINE-(156,123) 9330 LINE-(148,105) 9335 LINE(80,101)-(135,150),0 9340 LINE-(160,131),0 9345 LINE-(80,101),0 9350 PAINT(145,130),0 9355 PSET(135,149),0 9360 LINE(153,115)-(156,121) 9365 LINE(159,111)-(160,122) 9370 LINE(140,100)-(190,125) 9375 LINE-(135,121) 9380 PAINT(165,120) 9385 LINE(140,100)-(190,125),0 9390 LINE-(135,121),0 9395 LINE(159,117)-(159,119) 9400 GOTO 8890 9405 GOSUB 30000 '** Textpad ** 9410 PRINT FNCEN$("We next fold and backfold this corner",40) 9415 FOR K=1 TO 1500:NEXT K 9420 FOR K=1 TO 15 9425 PSET(135,158):DRAW"G5R4D7R2U7R4H5" 9430 PAINT(135,164) 9435 FOR M=1 TO 25:NEXT M 9440 CIRCLE(135,164),7,0 9445 PAINT(135,164),0 9450 NEXT K 9455 FOR K=1 TO 750:NEXT K 9460 GOSUB 30000 '** Textpad ** 9465 PRINT FNCEN$("over to this point",40) 9470 FOR K=1 TO 750:NEXT K 9475 FOR K=1 TO 15 9480 CIRCLE(160,140),5 9485 LINE(158,140)-(162,140) 9490 LINE(160,138)-(160,142) 9495 FOR M=1 TO 25:NEXT M 9500 CIRCLE(160,140),5,0 9505 LINE(158,140)-(162,140),0 9510 LINE(160,138)-(160,142),0 9515 NEXT K 9520 FOR K=1 TO 750:NEXT K 9525 GOSUB 30000 '** Textpad ** 9530 PRINT FNCEN$("across this line,",40) 9535 FOR K=1 TO 750:NEXT K 9540 LINE(143,124)-(146,135),0 9545 FOR K=1 TO 750:NEXT K 9550 GOSUB 30000 '** Textpad ** 9555 PRINT FNCEN$("SO!",40) 9560 FOR K=1 TO 750:NEXT K 9565 FOR Q=0 TO 14 9570 LINE(143,124)-(135+Q,150-0.36*Q) 9575 LINE-(146,135) 9580 LINE(143,124)-(135+Q,150-0.36*Q),0 9585 FOR M=1 TO 10:NEXT M 9590 NEXT Q 9595 FOR Q=O TO 11 9600 LINE(143,124)-(149+Q,145-0.45*Q),0 9605 LINE(143,124)-(149+Q,145-0.45*Q) 9610 LINE-(146,135) 9615 LINE(146,135)-(149+Q,145-0.45*Q),0 9620 LINE(146,135)-(148+Q,145-0.45*Q),0 9625 PSET(147,143),0 9630 FOR M=1 TO 10:NEXT M 9635 NEXT Q 9640 LINE(143,124)-(160,140),0 9645 GOSUB 30000 '** Textpad ** 9650 PRINT FNCEN$("Your turn to fold and backfold.",40) 9655 FOR K=1 TO 1500:NEXT K 9660 PRINT FNCEN$("To see that fold again, press <R>.",40) 9665 FOR K=1 TO 1000:NEXT K 9670 PRINT FNCEN$("To continue, press <C>.",40) 9675 A$=INKEY$:IF A$="" GOTO 9675 9680 IF A$="r" OR A$="R" GOTO 9695 9685 IF A$="c" OR A$="C" GOTO 9805 9690 GOTO 9645 9695 GOSUB 30000 '*** Textpad *** 9700 PRINT FNCEN$("* Review *",40) 9705 FOR K=1 TO 1500:NEXT K 9710 FOR A=0 TO 20 9715 OUT 66,A:OUT 66,A 9720 OUT 97,(INP(97) OR 3) 9725 NEXT A 9730 SOUND 37,0 9735 LINE(80,101)-(135,150),0 9740 LINE-(160,131),0 9745 LINE-(80,101),0 9750 PAINT(145,130),0 9755 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129) 9760 LINE(151,128)-(146,126),3 9765 LINE(147,107)-(135,150) 9770 LINE-(155,124) 9775 LINE-(147,107) 9780 PAINT(145,130) 9785 LINE(148,105)-(135,150),0 9790 LINE-(156,123),0 9795 PSET(141,127),0:PSET(139,134),0:PSET(150,127) 9800 GOTO 9405 '***6425*** 9805 GOSUB 30000 '** Textpad ** 9810 PRINT FNCEN$("We now go back three folds.",40) 9815 FOR K=1 TO 1500:NEXT K 9820 GOSUB 30000 '** Textpad ** 9825 PRINT FNCEN$("One moment, please.",40) 9830 FOR K=1 TO 750:NEXT K 9835 FOR A=0 TO 20 9840 OUT 66,A:OUT 66,A 9845 OUT 97,(INP(97) OR 3) 9850 NEXT A 9855 SOUND 37,0 9860 LINE(168,114)-(190,125),0 9865 LINE-(162,125),0 9870 LINE-(168,114),0 9875 PAINT(175,120),0 9880 LINE(164,124)-(170,124),0 9885 LINE-(160,131),0 9890 LINE-(80,101),0 9895 PAINT(145,130),0 9900 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129) 9905 LINE(146,127)-(152,129),0 9910 LINE(146,128)-(152,130),0 9915 LINE(146,129)-(152,131),0 9920 LINE(156,123)-(153,128) 9925 LINE(147,107)-(143,124) 9930 LINE(140,100)-(148,104) 9935 PSET(154,125):PSET(153,127):PSET(142,122):PSET(147,110) 9940 LINE(135,121)-(143,121) 9945 LINE(140,100)-(80,100) 9950 LINE-(160,130) 9955 PAINT(125,105) 9960 LINE(145,100)-(160,130),0 9965 FOR K=1 TO 750:NEXT K 9970 GOSUB 30000 '** Textpad ** 9975 PRINT FNCEN$("We take this corner",40) 9980 FOR K=1 TO 750:NEXT K 9985 FOR K=1 TO 15 9990 PSET(72,100):DRAW"H5D4L7D2R7D4E5" 9995 PAINT(66,100) 10000 FOR M=1 TO 25:NEXT M 10005 CIRCLE(66,100),7,0 10010 PAINT(66,100),0 10015 NEXT K 10020 FOR K=1 TO 750:NEXT K 10025 GOSUB 30000 '** Textpad ** 10030 PRINT FNCEN$("down to this point again",40) 10035 FOR K=1 TO 750:NEXT K 10040 FOR K=1 TO 15 10045 CIRCLE(190,125),5 10050 LINE(188,125)-(192,125) 10055 LINE(190,123)-(190,127) 10060 FOR M=1 TO 25:NEXT M 10065 CIRCLE(190,125),5,0 10070 LINE(188,125)-(192,125),0 10075 LINE(190,123)-(190,127),0 10080 NEXT K 10085 FOR K=1 TO 750:NEXT K 10090 GOSUB 30000 '** Textpad ** 10095 PRINT FNCEN$("across this crease,",40) 10100 FOR K=1 TO 1500:NEXT K 10105 FOR K=1 TO 25 10110 LINE(140,100)-(135,120),1 10115 FOR M=1 TO 25:NEXT M 10120 LINE(140,100)-(135,120),0 10125 NEXT K 10130 FOR K=1 TO 750:NEXT K 10135 GOSUB 30000 '** Textpad ** 10140 PRINT FNCEN$("but with this difference:",40) 10145 FOR K=1 TO 1500:NEXT K 10150 GOSUB 30000 '** Textpad ** 10155 PRINT FNCEN$("our next fold is an INSIDE REVERSE FOLD",40) 10160 FOR K=1 TO 1500:NEXT K 10165 GOSUB 30000 '** Textpad ** 10170 PRINT FNCEN$("that tucks into this pocket,",40) 10175 FOR K=1 TO 750:NEXT K 10180 LINE(80,100)-(162,135) 10185 LINE-(170,110) 10190 LINE-(160,130) 10195 LINE-(80,100) 10200 PAINT(160,132) 10205 LINE(80,100)-(160,130),0 10210 LINE-(170,110),0 10215 FOR K=1 TO 15 10220 PSET(160,143):DRAW"G5R4D7R2U7R4H5" 10225 PAINT(160,149) 10230 FOR M=1 TO 25:NEXT M 10235 CIRCLE(160,149),7,0 10240 PAINT(160,149),0 10245 NEXT K 10250 FOR K=1 TO 750:NEXT K 10255 GOSUB 30000 '** Textpad ** 10260 PRINT FNCEN$("SO!",40) 10265 FOR K=1 TO 750:NEXT K 10270 FOR A=0 TO 20 10275 OUT 66,A:OUT 66,A 10280 OUT 97,(INP(97) OR 3) 10285 NEXT A 10290 SOUND 37,0 10295 LINE(80,100)-(162,135),0 10300 LINE-(170,110),0 10305 LINE-(160,130),0 10310 LINE-(80,100),0 10315 PAINT(160,132),0 10320 LINE(80,100)-(135,120) 10325 LINE(80,100)-(140,100),0 10330 LINE-(134,124),0 10335 LINE-(80,100),0 10340 PAINT(125,110),0 10345 LINE(168,114)-(190,125) 10350 LINE-(162,125) 10355 PAINT(175,120) 10360 LINE(190,125)-(164,123),0 10365 LINE(170,110)-(160,131),0 10370 FOR K=1 TO 750:NEXT K 10375 GOSUB 30000 '** Textpad ** 10380 PRINT FNCEN$("To review that fold, press <R>.",40) 10385 FOR K=1 TO 1000:NEXT K 10390 PRINT FNCEN$("To continue, press <C>.",40) 10395 A$=INKEY$:IF A$="" GOTO 10395 10400 IF A$="r" OR A$="R" GOTO 10415 10405 IF A$="c" OR A$="C" GOTO 10435 10410 GOTO 10375 10415 GOSUB 30000 '** Textpad ** 10420 PRINT FNCEN$("* Review *",40) 10425 FOR K=1 TO 1500:NEXT K 10430 GOTO 9805 '***6825*** 10435 GOSUB 30000 '** Textpad ** 10440 PRINT FNCEN$("We next fold CHICK's wings",40) 10445 FOR K=1 TO 1500:NEXT K 10450 GOSUB 30000 '** Textpad ** 10455 PRINT FNCEN$("back to where they were,",40) 10460 FOR K=1 TO 1500:NEXT K 10465 GOSUB 30000 '** Textpad ** 10470 PRINT FNCEN$("both in front",40) 10475 FOR K=1 TO 750:NEXT K 10480 FOR Q=0 TO 12 10485 LINE(145,100)-(157-Q,88+Q),0 10490 LINE-(160,130),0 10495 LINE(145,100)-(157-Q,88+Q) 10500 LINE-(160,130) 10505 LINE(158,88)-(160,130) 10510 FOR M=1 TO 10:NEXT M 10515 NEXT Q 10520 LINE(160,106)-(169,109) 10525 PSET(161,107):PSET(164,108) 10530 LINE(145,100)-(190,115),0 10535 FOR H=145 TO 125 STEP -1 10540 LINE(160,130)-(H,100),0 10545 LINE(160,130)-(H,100) 10550 LINE(160,130)-(145,100),0 10555 FOR M=1 TO 10:NEXT M 10560 NEXT H 10565 LINE(125,100)-(160,130),0 10570 FOR K=1 TO 750:NEXT K 10575 GOSUB 30000 '** Textpad ** 10580 PRINT FNCEN$("and in back,",40) 10585 FOR K=1 TO 750:NEXT K 10590 FOR Q=0 TO 12 10595 LINE(145,100)-(157-Q,88+Q),1 10600 LINE-(160,130),1 10605 LINE(145,100)-(157-Q,88+Q) 10610 LINE-(160,130) 10615 LINE(158,88)-(160,130) 10620 FOR M=1 TO 10:NEXT M 10625 NEXT Q 10630 LINE(160,106)-(169,109) 10635 PSET(161,107):PSET(164,108) 10640 LINE(145,100)-(190,115),0 10645 FOR H=145 TO 125 STEP -1 10650 LINE(160,130)-(H,100),1 10655 LINE(160,130)-(H,100) 10660 LINE(160,130)-(145,100),0 10665 FOR M=1 TO 10:NEXT M 10670 NEXT H 10675 LINE(125,100)-(160,130),0 10680 FOR K=1 TO 750:NEXT K 10685 GOSUB 30000 '** Textpad ** 10690 PRINT FNCEN$("and again fold this corner",40) 10695 FOR K=1 TO 1500:NEXT K 10700 FOR K=1 TO 15 10705 PSET(198,125):DRAW"E5D4R7D2L7D4H5" 10710 PAINT(204,125) 10715 FOR M=1 TO 25:NEXT M 10720 CIRCLE(204,125),7,0 10725 PAINT(204,125),0 10730 NEXT K 10735 FOR K=1 TO 750:NEXT K 10740 GOSUB 30000 '** Textpad ** 10745 PRINT FNCEN$("down to this point",40) 10750 FOR K=1 TO 750:NEXT K 10755 FOR K=1 TO 15 10760 CIRCLE(135,150),5 10765 LINE(133,150)-(137,150) 10770 LINE(135,148)-(135,152) 10775 FOR M=1 TO 25:NEXT M 10780 CIRCLE(135,150),5,0 10785 LINE(133,150)-(137,150),0 10790 LINE(135,148)-(135,152),0 10795 NEXT K 10800 FOR K=1 TO 750:NEXT K 10805 GOSUB 30000 '** Textpad ** 10810 PRINT FNCEN$("in another INSIDE REVERSE FOLD,",40) 10815 FOR K=1 TO 1500:NEXT K 10820 GOSUB 30000 '** Textpad ** 10825 PRINT FNCEN$("SO!",40) 10830 FOR K=1 TO 750:NEXT K 10835 FOR A=0 TO 20 10840 OUT 66,A:OUT 66,A 10845 OUT 97,(INP(97) OR 3) 10850 NEXT A 10855 SOUND 37,0 10860 LINE(168,114)-(190,125),0 10865 LINE-(163,125),0 10870 LINE-(168,114),0 10875 PAINT(175,120),0 10880 LINE(170,124)-(164,124),0 10885 LINE(167,114)-(141,100) 10890 LINE-(138,110) 10895 LINE(135,120)-(163,123) 10900 LINE(148,105)-(156,123) 10905 PSET(158,126):PSET(157,124) 10910 LINE(80,101)-(135,150),0 10915 LINE-(160,131),0 10920 LINE-(80,101),0 10925 PAINT(145,130),0 10930 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129) 10935 LINE(151,128)-(146,126),3 10940 LINE(147,107)-(135,150) 10945 LINE-(155,124) 10950 LINE-(147,107) 10955 PAINT(145,130) 10960 LINE(148,105)-(135,150) 10965 LINE-(156,128) 10970 PAINT(152,130) 10975 LINE(141,143)-(147,136) 10980 PSET(141,127),0:PSET(139,134),0:PSET(150,127) 10985 LINE(149,107)-(159,127) 10990 LINE(125,100)-(160,130),0 10995 LINE-(145,100),0 11000 PSET(150,126):PSET(152,127):PSET(142,123) 11005 LINE(140,123)-(156,129),0 11010 LINE(135,150)-(152,128),0 11015 FOR K=1 TO 750:NEXT K 11020 GOSUB 30000 '** Textpad ** 11025 PRINT FNCEN$("To review that fold, press <R>.",40) 11030 FOR K=1 TO 1000:NEXT K 11035 PRINT FNCEN$("To continue, press <C>.",40) 11040 A$=INKEY$:IF A$="" GOTO 11040 11045 IF A$="r" OR A$="R" GOTO 11060 11050 IF A$="c" OR A$="C" GOTO 11190 11055 GOTO 11020 11060 GOSUB 30000 '** Textpad ** 11065 PRINT FNCEN$("* Review *",40) 11070 FOR K=1 TO 750:NEXT K 11075 FOR A=0 TO 20 11080 OUT 66,A:OUT 66,A 11085 OUT 97,(INP(97) OR 3) 11090 NEXT A 11095 SOUND 37,0 11100 LINE(140,123)-(156,129),0 11105 LINE-(135,150),0 11110 LINE-(140,123),0 11115 PAINT(145,135),0 11120 PAINT(148,135),0 11125 LINE(80,100)-(162,135),0 11130 LINE-(170,110),0 11135 LINE-(160,130),0 11140 LINE-(80,100),0 11145 PAINT(160,132),0 11150 LINE(168,114)-(190,125) 11155 LINE-(162,125) 11160 PAINT(175,120) 11165 LINE(190,125)-(164,123),0 11170 LINE(170,110)-(160,131),0 11175 LINE(136,148)-(143,141),0 11180 FOR K=1 TO 750:NEXT K 11185 GOTO 10685 11190 GOSUB 30000 '** Textpad ** 11195 PRINT FNCEN$("Our last fold",40) 11200 FOR K=1 TO 1500:NEXT K 11205 PRINT FNCEN$("is also an INSIDE REVERSE FOLD",40) 11210 FOR K=1 TO 1500:NEXT K 11215 GOSUB 30000 '** Textpad ** 11220 PRINT FNCEN$("which takes this corner",40) 11225 FOR K=1 TO 750:NEXT K 11230 FOR K=1 TO 15 11235 PSET(135,158):DRAW"G5R4D7R2U7R4H5" 11240 PAINT(135,164) 11245 FOR M=1 TO 25:NEXT M 11250 CIRCLE(135,164),7,0 11255 PAINT(135,164),0 11260 NEXT K 11265 FOR K=1 TO 750:NEXT K 11270 GOSUB 30000 '** Textpad ** 11275 PRINT FNCEN$("over again to this point",40) 11280 FOR K=1 TO 750:NEXT K 11285 FOR K=1 TO 15 11290 CIRCLE(160,140),5 11295 LINE(158,140)-(162,140) 11300 LINE(160,138)-(160,142) 11305 FOR M=1 TO 25:NEXT M 11310 CIRCLE(160,140),5,0 11315 LINE(158,140)-(162,140),0 11320 LINE(160,138)-(160,142),0 11325 NEXT K 11330 FOR K=1 TO 750:NEXT K 11335 GOSUB 30000 '** Textpad ** 11340 PRINT FNCEN$("across this crease,",40) 11345 FOR K=1 TO 750:NEXT K 11350 LINE(143,124)-(146,135),0 11355 FOR K=1 TO 750:NEXT K 11360 GOSUB 30000 '** Textpad ** 11365 PRINT FNCEN$("SO!",40) 11370 FOR K=1 TO 750:NEXT K 11375 FOR A=0 TO 20 11380 OUT 66,A:OUT 66,A 11385 OUT 97,(INP(97) OR 3) 11390 NEXT A 11395 SOUND 37,0 11400 LINE(79,100)-(160,131),0 11405 LINE-(135,155),0 11410 LINE-(79,100),0 11415 PAINT(143,135),0 11420 PAINT(148,130),0 11425 PAINT(149,134),0 11430 LINE(135,149)-(140,145),0 11435 LINE(143,122)-(140,136) 11440 LINE-(160,140) 11445 LINE-(150,131) 11450 LINE-(152,128) 11455 PAINT(148,131) 11460 LINE(143,124)-(143,135),0 11465 LINE-(160,140),0 11470 LINE(81,100)-(160,131),0 11475 LINE(152,128)-(144,135),0 11480 PSET(151,130),0 11485 FOR K=1 TO 750:NEXT K 11490 GOSUB 30000 '** Textpad ** 11495 PRINT FNCEN$("To review that fold, press <R>.",40) 11500 FOR K=1 TO 1000:NEXT K 11505 PRINT FNCEN$("To continue, press <C>.",40) 11510 A$=INKEY$:IF A$="" GOTO 11510 11515 IF A$="r" OR A$="R" GOTO 11530 11520 IF A$="c" OR A$="C" GOTO 11715 11525 GOTO 11490 11530 GOSUB 30000 '** Textpad ** 11535 PRINT FNCEN$("* Review *",40) 11540 FOR K=1 TO 750:NEXT K 11545 FOR A=0 TO 20 11550 OUT 66,A:OUT 66,A 11555 OUT 97,(INP(97) OR 3) 11560 NEXT A 11565 SOUND 37,0 11570 LINE(143,126)-(143,135) 11575 LINE-(160,140) 11580 LINE(81,100)-(160,131),0 11585 LINE(152,128)-(144,135) 11590 LINE(143,126)-(140,136) 11595 LINE-(160,140),0 11600 LINE-(150,131),0 11605 LINE-(152,128),0 11610 PAINT(148,131),0 11615 PSET(158,139),0 11620 PSET(155,137),0:PSET(154,137),0:PSET(156,138),0:PSET(151,129) 11625 LINE(151,128)-(146,126),3 11630 LINE(147,107)-(135,150) 11635 LINE-(155,124) 11640 LINE-(147,107) 11645 PAINT(145,130) 11650 LINE(148,105)-(135,150) 11655 LINE-(156,128) 11660 PAINT(152,130) 11665 LINE(141,143)-(147,136) 11670 PSET(141,127),0:PSET(139,134),0:PSET(150,127) 11675 LINE(149,107)-(159,127) 11680 LINE(125,100)-(160,130),0 11685 LINE-(145,100),0 11690 PSET(150,126):PSET(152,127):PSET(142,123) 11695 LINE(140,123)-(156,129),0 11700 LINE(135,150)-(152,128),0 11705 FOR K=1 TO 750:NEXT K 11710 GOTO 11190 11715 GOSUB 30000 '** Textpad ** 11720 PRINT FNCEN$("Our final task is to set CHICK",40) 11725 FOR K=1 TO 1500:NEXT K 11730 GOSUB 30000 '** Textpad ** 11735 PRINT FNCEN$("firmly on the ground,",40) 11740 FOR K=1 TO 1500:NEXT K 11745 GOSUB 30000 '** Textpad ** 11750 PRINT FNCEN$("SO!",40) 11755 FOR K=1 TO 750:NEXT K 11760 FOR A=0 TO 20 11765 OUT 66,A:OUT 66,A 11770 OUT 97,(INP(97) OR 3) 11775 NEXT A 11780 SOUND 37,0 11785 CLS 11790 LINE(190,90)-(160,75) 11795 LINE-(154,85) 11800 LINE-(135,80) 11805 LINE-(147,93) 11810 LINE-(130,90) 11815 LINE-(138,97) 11820 LINE-(135,100) 11825 LINE-(131,127) 11830 LINE-(142,127) 11835 LINE-(150,140) 11840 LINE-(175,140) 11845 LINE-(156,132) 11850 LINE-(161,127) 11855 LINE-(167,127) 11860 LINE-(167,125) 11865 LINE-(170,125) 11870 LINE-(176,95) 11875 LINE-(178,95) 11880 LINE-(180,90) 11885 LINE-(190,90) 11890 PAINT(160,100) 11895 LINE(155,95)-(179,95),0 11900 LINE-(183,86),0 11905 LINE(170,125)-(155,95),0 11910 LINE-(160,76),0 11915 LINE(170,125)-(135,125),0 11920 LINE-(135,100),0 11925 LINE(163,125)-(150,140),0 11930 LINE-(140,125),0 11935 LINE(170,125)-(129,89),0 11940 LINE-(155,95),0 11945 LINE(150,94)-(159,75),0 11950 GOSUB 30000 '** Textpad ** 11955 PRINT FNCEN$("And there we have it!",40) 11960 FOR K=1 TO 1500:NEXT K 11965 GOSUB 30000 '** Textpad ** 11970 PRINT FNCEN$("CHICK",40) 11975 FOR K=1 TO 1500:NEXT K 11980 GOSUB 30000 '*** Textpad *** 11985 PRINT FNCEN$(" Press <1> - To return to MAIN MENU.",40) 11990 PRINT FNCEN$(" <2> - To repeat CHICK.",40) 11995 PRINT FNCEN$(" <3> - To exit from program.",40) 12000 E$=INPUT$(1) 12005 IF E$<"1" OR E$>"3" GOTO 12000 12010 SEL=VAL(E$) 12015 COMMON SEL 12020 CLS 12025 LOCATE 13,1:PRINT FNCEN$("One moment, please.",40) 12026 LINE(70,75)-(250,125),3,B 12030 ON SEL GOTO 12035,12040,12045 12035 CHAIN"a:main" 12040 CHAIN"a:chick" 12045 CHAIN"a:end" 30000 LOCATE 1,1 30010 PRINT" " 30020 LOCATE 1,1:RETURN